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A PRIMEIRA REVISTA BRASILEIRA DE MICROCOMPUTADORES 



DISQUETES 



ao ai. 02. a 3 a(f 




► Um DIR que mostra tudo 

► CADPRO • 2° parte 

► Manipule arquivos ASCII 
em C 
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KIT PARA DRIVE DDX 

Composto de gabinete meta- 
lico, fonte dealimentagao, interfa- 
ce DDX, cabo para dois ’drives', ma- 
nual e sistema operacional (DOS). 

▼ 
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DDX MODEM PARA MICROS MSX 

Transmite e recebe em 1200/75, 500/300, 
1200/1200, bell e CCITT. Discagem automatica 
pelo teclado do micromputador. Monitoragao 
de linha, rediscagem automatica no caso de 
ocupado, atendimento automdtico. Contdm 
software embutido para terminal generico, vi- 
deo texto (MSX 1 e MSX 2). Homologado pela 
TELESP. 



CONHECA OS 
MAIS RECENTES 
LANCAMENTOS 

KIT DDX PLUS 1.1 

Este Kit faz com que o usudrio es- 
colha entre o modo "PLUS’ el.T, fa- 
zendo seu micro f icar compativel 
com todos os jogos e utilitdrios do 
mercado. No modo Plus, o micro 
possui mais 64K de Ram, totalizan- 
do 128K. 



KIT DDX MSX 2.0 

0 Kit MSX 2 faz com que o micro, 
entre outras vantagens, tenha 
maiorresolugao, maiorvelocidade 
de.manipulagao de grdficos, um 
reldgio real com bateria para 
quando o micro estiver desligado, 
80colunas programdveis, 128K de 
Ram de video, 256 cores simulta- 
neas, etc. 



EXPANSOR DE SLOTS DDX 

Este aparelho expande cada "SLOT 1 do micro 
MSX em 4 "SLOTS" independentes, possibili- 
tando ao usuario utilizar atd 8 "SLOTS' simul- 
taneamente, ao inv6s de 2 originalmente 



MEGA RAM DISK 

Esta placa 6 uma expansao de memdria com 
o sistema operacional DDX DOS residente e € 
apresentada em 3 modelos diferentes: ddx 
256, 512 e 768 Kbytes. Portanto, ela funciona 
como se fosse uma drive normal para o 
computador. 

Para quern gosta somente de jogos, e reco- 
mendavel a Mega Came ddx 256 Kbytes sem 
o ddx DOS residente 
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Agora na teve, 1 
todas as cores 
do PC 



• PLACA RF - VIDEO COMPOSTO (PAL/M) 



Placa para computadores PC XT/AT que transforma o sinal de 
video RGB de uma placa CGA em video composto colorido 
e em sinal de RF (saida para televisao), ambos PAL/M. 

O som do PC (auto falante) e tambem adicionado ao sinal 
de RF, permitindo ao televisor reproduzir o som do computador. 
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eletronica ltda. 


(Oil) 572.7419 — 575.9037 





LivroSoft 

O livro que voce queria. Com o 
software que voce nao podia ter. 




TITULOS JA DISPONIVEIS 



CLBC 

BIBLIOTECA COMPUGRAFICA PARA CLIPPER 

Biblioteca de fun<joes graficas que am- 
plia os limites da linguagem Clipper. 
Graficos comerciais, bancos de dados 
com imagens, vinhetas de abertura e 
aplicativos graficos sao alguns exem- 
plos do que e possfvel ser feito com o 
Clipper e a CLBC. 

CLBC 6 um produto da SoftCAD Inform&tica. 

DESCRITOR 

DOCUMENTADOR DE SISTEMAS 



Poderoso documentador automatico 
de sistemas escritos em linguagem 
Clipper, dBase ou Dialog. A partir do 
nome do programa principal sao docu- 
mentados todos os elementos do 
sistema, seus conteudos e inter-rela- 

cionamentos. 






Descritor 6 um produto da XS Inform&tica. 




SIM! Desejo adqulrir o LivroSoft. Para isso, estou enviando em anexo Cheque 
Nominal a LTC EDITORA, no valor correspondente ao total do pedido. 



( ) LivroSoft CLBC — CR$ 46.800,00 



( ) LivroSoft DESCRITOR — CR$ 34.800,00 



Total do pedido: CR$ 
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AN0 XI N° 110 CAPA; CLAUDIO COSTA 



Ao leitor 

Estamos nos aproximando do final do ano e nada de excepcional aconteceu no 
mercado de microinformatica. Nenhum grande fabricante se instalou em nossas 
praias, nenhuma grande softhouse entrou pra valer em nosso mercado, nenhuma 
novidade significativa aportou nas prateleiras das lojas, nos grandes centros urba- 
nos (leia Rio e Sao Paulo). 

Enfim, tudo continua como sempre foi (inclusive a inflagao crescente) e a so- 
berania nacional esta cada vez mais resguardada dos “abutres“ estrangeiros. En- 
quanto isso, nos subterraneos do mercado informal, ja se pode comprar qualquer 
novidade high tech recem lanqada nos Estados Unidos. Tudo continua como sem- 
pre foi... 

A partir desta edigao entramos no ano XI da MICRO SISTEMAS e, como nao 
poderia deixar de ser, estamos preparando uma serie de novidades para os leitores. 
Elas comegarao a ser mostradas na proxima edigao. 

Encerramos nesta edigao a publicagao de dois grandes programas: o CADPRO, 
do Daniel Jerozolinski e o Controle de Locadora, do Ricardo Gomide. 

Como destaque, temos tambem uma Agenda no micro, escrita pelo Vicente Mo- 
redo e uma materia sobre disquetes, de autoria de Carlos Gongalves. Imperdfvel 
tambem e a materia de capa desta edigao, escrita por Evandro Ruiz e Aparecido 
da Costa, que trata do reconhecimento de padroes graficos. 

Renato Degiovani 



Neste Numero 



ESPECIAL 

NAO USE A MEMORIA, USE O MICRO 

Vicente Jose Moredo 22 

CAPA: 

RECONHECIMENTO DE PADROES 

Evandro Seron Ruiz e Aparecido da Costa ... 12 

ARTIGO: 

DISQUETES: FUNDAMENTOS 



Carlos Gongalves 18 

UTILITARIOS: 

UM DIR MUITO ESPECIAL 

Marcelo Flores Vieira 36 

ARQUIVOS ASCII: 

E FACIL LIDAR COM ELES 

Marcia Marini e Claudio Oliveira 38 



APLICATIVOS: 

CONTROLE DE LOCADORA 

Ricardo Borges Gomide 42 

CADPRO: UM SISTEMA SOB MEDIDA 

Daniel Jerozolimski 48 



PROGRAMA: 

ORGAO NO MICRO 

Emerson Tedesco Faria de Morais 40 



SEQOES: 



BYTES 6 

CARTAS 54 

LIVROS 58 



MICRO SISTEMAS 5 



BYTES 



bancamentos Sisco tem 
tecnologia RISC 

A Sisco Sistemas e Computadores langa 
no mercado nacional novos equipamentos 
com tecnologia RISC e toda uma linha de 
produtos para redes locais. Sao supermicros 
386 e 486; uma estagao de trabalho 386 
diskless; supermicros e superminis com ar- 
quitetura RISC; urn exclusivo superservidor 
para redes que permite processamento si- 




SUPERMICRO S/SCO SIX/486 SX 



multaneo e integrado de sistema operacio- 
nal UNIX e de software de rede Novell; alem 
de equipamentos.para os segmentos de au- 
tomagao comercial e industrial. 

Os novos produtos Sisco demonstram 
um direcionamento da empresa para a filo- 
sofia de Sistemas Abertos, ou Open Sys- 
tems, onde programas e aplicativos desen- 
volvidos em diferentes plataformas de 
hardware podem ser usados com total com- 
patibilidade, economia de escala e conec- 
tividade entre sistemas heterogeneos, e 
ainda, garantia de compatibilidade binaria de 
software. 



Infosul langa micro de 
32 bits 



A Infosul Informatica, fabricante de mi- 
crocomputadores do Sul do Pais, num 
acordo tecnologico com a AMI - American 
Megatrands Inc. (Iider mondial na area de 
Bios), apresenta ao mercado nacional a nova 
linha Quality, com micros de 32 bits. 

A empresa inicialmente comercializa 
cinco modelos: um 386 SX, com 25 Mhz 
de velocidade, memoria RAM de 32 Mbytes 
e memoria cache de 32 Kb; um 386 DX, 
com 33 ou 40 Mhz, memoria RAM de 64 
Mbytes e cache de 64 a 256 Kb; um 486 
SX, com 20 Mhz de velocidade, 32 Mbytes 
de RAM; um 486 DX, com 33 Mhz de ve- 
locidade, 96 Mbytes de RAM e 64 a 256 Kb 
de cache; alem da maquina de barramento 
Eisa - um 486 DX, com velocidade de 33 
Mhz, memoria RAM de 96 Mbytes e cache 
de 128 Kb. 



A Infosul importa somente as placas- 
-mae desmontadas, que integra aos produ- 
tos nacionais, com um indice inicial de na- 
cionalizagao de 70% (custo final do 
produto). Sao pianos da empresa, em breve, 
fabricar tambem as placas no Pais. 




LINHA QUALITY DA INFOSUL 



Rio de Janeiro tem 
nova livraria 

0 carioca ganha mais uma opgao na pro- 
cura dos melhores pregos em livros de In- 
formatica. Com a abertura da Livraria Cien- 
cia Nova Ltda., o interessado pelo setor 
conta com um acervo das melhores edito- 
ras de computagao do Pais, alem de uma 
linha de suprimentos de diversos fabrican- 
tes. 




• DRIVES DE 5 1/4 E 3 1/2 

• MODEM DECOMUNICACAO 

• LIVROS 

• DISCOS 5 1/4 E 3 1/2 



• IMPRESSORAS 

• EXPANSOR DE SLOTS 

• BOBINAS PARA FAX 

• MESAS PARA CPD 



• MONITORES 

• TRANSFORMACAO PARA 2.0 

• FORMULARIOS CONTlNUOS 80 COL. 

• ESTABILIZADORES DE VOLTAGEM 



Solicite nosso catdlogo de programas Cr* 500,00 (este valor sera abatido no seu pedido). 
Atendemos todos os estados em 24 horas via SEDEX. 

Para (azer seu pedido envie cheque nominal com carta detalhada para MSX-SOFT. 




TEL: (021) 284-6791 
FAX: (021) 264-0563 



Matriz: RJ Av 28 de Setembro. 226 Loja 110 VILA 
SHOPPING RJ CEP 20551 Tel: 284 6791 e 264-1549 
Filial: Curitiba Av 7 de Setembro, 3.146 Loja 20 
SHOPPING SETE CURITIBA PR CEP 80010 Tel: 232 0399 
Filial: SP Caixa Postal 20.217 -CEP 04034 - Tel : 579-8050 
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Filcril lan?a linha Topis 
no Brasil 




A Filcril, empresa distribuidora de pro- 
dutos de informatica e microeletronica, ja 
fabrica no Brasil a linha Topis de microcom- 
putadores PC. 

Anteriormente formada pelos modelos 
XT e AT 286, a linha Topis traz tambem as 
versoes 386/SX/DX e 486/DX. Sao agora co- 
mercializados no Pais os seguintes mode- 
los: HQ-1288 (PC XT com processador NEC 
V-20; 12 MHz de velocidade; 1 MB de me- 
moria RAM e um drive 5 174', com 360 KB 
de capacidade); HQ-286 (PC AT com pro- 
cessador Intel 80286; 12,5 a 16 MHz; 1 MB 
de RAM, expansivel a 8 MB e um drive 5 1/4 
com 360 KB, na versao standard) alem das 
novas versoes HQ-386/SX (16 a 20 MHz de 
clock selecionavel; 2 MB de RAM, expan- 
sivel a 8 MB; dois drives 5 1/4; com 360 
KB/1,2 MB de capacidade, alem de um win- 
chester de 40 MB MFM ou IDE); HQ-386/DX 
(33 MHz; 2 MB de RAM, expansivel a 32 MB; 
memoria cache de 64 KB, expansivel a 256 
KB; dois drives de 5 1/4, com 360 KB/1,2 
MB e um winchester de 40 MB MFM ou 



IDE); HQ-486/DX (25 MHz de velocidade; 4 
MB de RAM, ate 32 MB; 64 KB de cache, 
ate 256 KB, alem de 8 KB integrados ao pro- 
cessador principal; dois drives de 5 1/4; com 
360 KB/1,2 MB e um winchester de 80 MB 
MFM ou IDE). Todos com floppies opcionais 
de 3 l/2‘ de 1,44 MB. 



Os modelos vem equipados com moni- 
tores CGA Mono, 12 polegadas, com opcio- 
nal de VGA 14 polegadas colorido ou 
CGA/Hercules, com tela plana de 12 pole- 
gadas B/W. Rodem ser montados em gabi- 
netes baby ou desk, com opgao em ABS im- 
portado, tipo torre baby, mini, midi ou super. 
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Nova linha de moveis 
para informatica 

A Hobjeto Industria e Comercio de Mo- 
veis Ltda ja comercializa sua nova linha, es- 
pecialmente desenvolvida para o setor de 
informatica. Com design moderno, os mo- 
veis pretendem aliar beleza, resistencia e 
praticidade. 

A linha apresenta caracteristicas espe- 
cificas para adaptagao de computador e im- 
pressora, alem de acessorios para tomadas 
de energia e telefone, passagem para cabo 
e o suporte aramado para impressora e 
apoio de papel. Sao mesas, gaveteiros e ou- 
tros complementos, fabricados em aglome- 
rado com revestimento melaminico, dispo- 
niveis nas cores ovo e cinza, alem do 
acabamento das bordas, que e feito em 
freijo preto. 

A empresa dispoe de atendimento gra- 
tuito ao cliente, com criagao de plantas es- 
pecificas a cada ambienta 




DATACRYPTOR 64, DA RHEDE TECNOLOGIA 



Datacryptor 64 garante 
seguranga dos dados 

A Rhede Tecnologia, fabricante de pro- 
dutos para a area de comunicagao de da- 
dos, langa o Datacryptor 64 - urn criptografo 
utilizado para cifragem de informagoes. 

Equipamento utilizado para garantir a sa 
guranga dos dados, o Datacryptor trabalha 
acoplado a um modem. Evita a espionagem, 



pois so permite o acesso ao banco para 
quern possui outro aparelho que esteja pro- 
gramado com a chave de acesso. 

A combinagao da chave de acesso pode 
ser modificada diariamente E mais um pro- 
duto que investe na seguranga dos dados, 
preocupagao constante dos usuarios de 
bancos. 



Gerente Contabil 
-sistema para PC 

A Nasajon desenvolveu o Gerente Con- 
tabil, sistema de contabilidade para micros 
de 16 bits, criado para executar as fungoes 
normais do cotidiano empresarial. 

0 Gerente Contabil realiza a escrituragao 
do diario, razao, balancetes, balango e de- 
monstragoes de resultados, bem como 
fungoes gerenciais do tipo: analises de re- 
sultados atraves de graficos; relatorios e 
controle financeiro atraves da conversao au- 
tomatica para outras moedas ou indices. 

0 sistema conta ainda com: agenda per- 
sonalizada para cada operador, calculadora, 
langamentos em lote ou instantaneos e es- 
trutura de suporte ao usuario. 

AMI PRO ja tem versao 
em portugues 

A SPA - Sistemas, Planejamento e Ana- 
lise langa a versao em portugues do AMI 
PRO, processador de texto para ambiente 
Windows, da Lotus. 

Utilizado por jornalistas, escritores, se- 
cretariat etc., o software combina caracte- 
risticas de processamento de textos com 
desktop publishing e e concebido em Wl- 
SIWIG, onde o usuario ve na tela o que sera 
impresso (what you see is what you get). 

0 programa opera atraves de menus com 
interfaces intuitivas e apresenta uma barra 
de icones a esquerda da tela, onde o usua- 
rio seleciona ftens correspondentes as 
fungoes mais usadas. 




MOVEIS PARA INFORMATICA DA HOBJETO 





JOGOS E APLICATIVOS PARA MSX-1 


PERIFERICOS 




-sen BELI- 
SOFT BELT MSX-1 

R. Dr. Luis Ayres, 2114 Sala 3 - Artur Alvim 
Sao Paulo - Capital - Tel. (011)957-4666 
Proximo a Estagao Artur Alvim do Metro 


JOGOS, MEGARAM. APLICATIVOS EM DIS- 
COS 3 1/2 E 5 1/4 

• Temos mais de 2000 

• Os melhores do mercado 

• Os ultimos langamentos vindo da 
Europa 

SUPER PROMOQAO: Cada 5 jogos 2 gra- 
tis a cada 10 jogos 4 gratis a escolha. A 
cada 5 aplicativos 1 gratis a cada 10, 2 
gratis. 

SOLICITE SEU CATALOGO! 


• Kit para Drive DMX 

• Flop ou Acionador DMX 

• Drives completos 5 1/4 ou 3 
1/2 

• Cartucho MEGARAM 

• Formulcirios Continuos, etc... 


#wliW#V 

TEMOS JOGOS 
E APLICATIVOS 

ATENDEMOS 
TODO 0 BRASIL 

SOLICITE 

CATALOGO 

GRATIS 







PROGRAMAS PROFTSSIONAIS E SEKVKJOS 
AO ALCANCE DE TODOS 

Sovocesabe ondeosapatoaperta. Porisso, seu programa especifico passa a ser um Programa Alternativo para a PAC. Este 
e o motivo pelo qual nossos programas tomam-se bons produtos e custam muito menos. 

Programas padrao modificados 

Se voce adquire um dos nossos programas e deseja modifica-lo, defma suas ideias, envie-nos e aguarde nosso orsamento. 
Rapidinho chegamos a voce. 

Na PAC , voce fala direto com quern fa z. Um de nossos programadores, altamente qualificados, sera responsavel pelo seu 
projeto. Portanto, se voce sabe mesmo o que quer, a partir de agora somos o seu suporte a distancia. 

Fomecemos programas com fonte 

Loucura? A prindpio sim. Porem, se cortarmos as algemas, voce estara ligado a PAC apenas por opgao. — Separados — 
mas felizes para sempre. Assim 6 bem melhor ! 

Se voce programa ou tem prdximo de voce um programador, nao despreze esta possibilidade. 



PROGRAMAS SERVigOS 



Imobiliaria informatizada 67.000,00 (*) 

Condominio informatizado 57.000,00 (*) 

Posto de gasolina Informatizado 57.000,00 

Casa mat. construg&o Informatizada 77.000,00 (*) 

Casadeferragens informatizada 77.000,00 (*) 

Locadorade video informatizada 37.000,00 (*) 

Caixa informatizado 37.000,00 (*) 

Cobranga Informatizada 47.000,00 (*) 

Confecg&o informatizada 77.000,00 (*) 

Lab. analisesclinicas informatizado 67.000,00 (*) 

Processador de etiquetas 23.000,00 (*) 

Mala expressa 37.000,00 (*) 



PROGRAMAS PROFISSIONAIS 



Advogado informatizado 57.000,00 (*) 

Medico informatizado 57.000,00 (*) 

Veterinario informatizado 57.000,00 (*) 

Julz informatizado 67.000,00 

Tradutor informatizado 27.000,00 

Contador informatizado 47.000,00 (*) 

Comprador informatizado 77.000,00 (**) 



(•) Programa fornocido, opcionalmentc, com cddigo fonte. Cu*to: 3 sal. 
mfnimos + o programa. 

(••jPre^o garantido mediante reserva. 

Se o seu servigo nao se encontra em nossa linha de produtos, 
converse com a gente. 



TRADUZIR FIC0U MAIS FACIL 




A promoqao continua... Cr$ 44.000,00 



vocmum multilinguistico pam cqmputador 




8&000palavras, 68.000 para portugues/ingles 
Podem ser acresceotados novos vocibuios 



30 combina$6e$ entre as 6 Unguas. V 

Consul ta simultlnea para todos os idiomas 

Opera dentro de processadores de textos - rcsidente em memdria. = 

0 ) 
3 
O 




Gramitica bisica da 
ortografia, sintaxe, rcgim 



a a 
e 



portuguesa, tirando duvidas sobre 
muito mais... 



REVENDAS 

Brasilia - DF 

Laptop Inf ormatica 
Tel. (061) 226-0877 

Campinas - SP 

ExcitonlruL Elet. Ltda. 
Tel. (0192) 419-766 

Criduma - SC 
Miranda Assessoria 
Tel. (0484) 333-711 

Fortaleza - CE 

Telemicro Inf ormatica 
Tel. (085) 252-1514 

Salvador -BA 

Soft Shop Com. e Serv. 
Tel. (071) 359-4989 



Programas Alternatives para Computador 

Rua Dr. Bormann, 51 gr. 1203 - Niteroi -RJ- CEP 24020 



(021) 717-3021 
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Fiesp arquiva fotos em 
discos oticos 




Todo o acervo de fotos e slides que 
compoem o banco de imagens da Fiesp 
-Federagao das Industrias do Estado de Sao 
Paulo sera digitalizado e gravado em discos 
oticos regravaveis, de 1 Gigabyte, com ca- 
pacidade de armazenar ate 32 mil imagens 
comprimidas. 

As imagens apresentam os produtos fa- 
bricados pelas empresas associadas a 
Fiesp. Sao 30 mil fotos e slides que, se dis- 
postas lado a lado (formato 18 X 24 cm) 
ocupariam uma extensao de 7,2 quilome- 
tros. Quando gravadas, ocuparao urn unico 
disco otico, de 5 1/4 polegadas. 

0 trabalho objetiva a preservar o acervo 
e facilitar qualquer consulta ao banco de 
imagens, que pode ser feita em segundos, 
atraves das diferentes estagoes de trabalho 
interligadas em rede local no predio da 
Fiesp. A rede e gerenciada por uma CPU 
386 DX, que opera em 25 MHz, com 4 Mby- 
tes de memoria RAM, discos ngidos de 154 
Mb, placa grafica Targa+ 16/32 e monitor 
Targa de 19 polegadas, colorido e de alta re- 
solugao. 

A responsabilidade da importagao e su- 



EQUIPAMENTO PARA LEITURA E GRAVAQAO 

porte tecnico da tecnologia dos discos oti- 
cos e da Computer Graphics and Vision Di- 
vision da Fotoptica. 0 sistema e baseado no 
software Picture Power com Hardware Com- 
pression, com o Sable Paint, da AT&T/GSL, 
para retoque de cores das imagens captu- 
radas. 



Para a leitura e gravagao das imagens, 
a Fiesp vai utilizar o Panasonic Optical Disk 
Drive As imagens sao capturadas por scan- 
ners coloridos Howtec, para papel e slides, 
e a saida de dados sera feita via impressora 
termica Shinko e fotografadora Mirus, com 
8 mil linhas de resolugao. 




NOVIDADE 



Cartao Eletronico Instantaneo 



□ Clipper 
□Assembler 

□ DOS 

□ Interrupcoes 



Lembra daquele cartao de consulta rapida que voce nunca encontra 
quando precisa? Pode aposenta-lo! Chegou o CEI Kernel, o cartao de 
referenda que fica residente na memoria do micro. Quando voce precisa 
de uma informacao, ela esta la. Basta pressionar uma tecla. Nada mais 
simples, rapido, comodo e barato. E os assuntos sao os mais requisita- 
dos pelos programadores. 

COMO ADQUIRIR O CEI: 



Na compra de dois ou mais 
cartoes eletronicos voce recebe in- 
teiramente gratis o software 
AGENDA KERNEL. 



Recorte este anuncio e marque quais cartoes deseja receber. Cada 
cartao eletronico custa Cr$ 24.800,00. Anexe urn cheque nominal a Ker- 
nel Consultoria e Sistemas, no valor total do seu pedido, e envie para 
ATI Editora S/A - Rua Washington Luiz,9 - gr 403 - RJ - CEP 20230 




MARSOFT 



inFDRmfvncfl 



O MELHOR PARA SEU MSX E PC 



SOFTWARE 



Jogos e aplicatjvos p/ MSX 1,2 e 2 + 
Jogos megaram e memory mapper 

Ultimos Lanpamentos 

A CADA 10 JOGOS, GRATIS + 02 



O. 






SUPRIMENTOS 



Fitas para impressora — Formulario continuo 
Porta-disquetes — Cabos em geral 
Disquetes de 5 1/4 e 3 1/2 

E MUITO MAIS ... 



HARDWARE 

- COMPLETA LINHA DE PRODUTOS DDX : 

Drives 'Megaram 'Modem 
'Cartao 80colunas 'Kit 2.0 
Kit 2.0+ (Plus) 'Expansor de slots (4 slots) 
'Interfaces etc... 

- E mais : 

* DRIVE ANGEISA • garantia de 6 meses* 



ACEITAMOS CARTAO 
DE CREDITO 

M (Oil) 263.1170 




Dispomos ainda de 
SOFTWARE & HARDWARE 
para toda a linha 

IBM-PC XT/AT 





ASSISTENCIA 

TECNICA 

ESPECIALIZADA 



CDiTIPRR • UEnDfl • TRDCfl 

DE EQUIPAMENTOS NOVOS E USADOS 



(CJIWW 

SEMANAIS 





E NA MARSOFT 



Horario de 
atendimento •• 

Seg. a sexta - 9 00 as 18:00 
Sdbados - 9=00 as 16=00 



VENHA VISITAR 
NOSSO NOVO 
SHOW - ROOM 



REMETEMOS P/ TODO BRASIL 



Recon hecimento de padroes 

Aprenda a fazer “ matching “ de um padrao com uma cena 



Evandro Seron Ruiz e Aparecido da Costa 



Atualmente a £rea de Processa- 
mento de Imagens (P.l.) encontra-se 
entre as mais promissoras e emergen- 
tes £reas nao s6 da Ciencia da Com- 
putagao como tamb6m em varias ou- 
tras frentes como a Geociencia, 
Robotica, Medicina, etc, porsua vasta 
atuag§o aplicativa. Dentro dos proble- 
mas que o P.l. ainda tenta resolver de- 
finitivamente, de maneira autom£tica, 
est£ o de Reconhecimento de Padroes 
ou, em outras palavras, a tarefa de 
identificar uma figure F dentro de uma 
cena G. Por exemplo, temos uma foto 
de uma cena G (ver figure 1) e dese- 
jamos localizar uma figura (um padrao) 
F conhecido dentro dessa cena. 

Utilizando esse principio, as apli- 
cagoes do Reconhecimento de Pa- 
droes em Imagens sao inumeras e va- 
riam desde as aplicagoes belicas de 
reconhecimento de avides e foguetes 
inimigos, at6 as aplicagoes industriais 
que procurem identificar numa linha de 
produgao os produtos com defeito, ou 
seja, numa cena de varios produtos 
procuramos por aqueles que nao se 
correlacionam com o padrao esperado. 

Uma das possiveis maneires de se 
localizar F em G 6 usar a tecnica do re- 
gistro de imagens - 'matching'. Fazer 
'matching', ou casamento de um pa- 
drao com uma cena, significa sobre- 
por F a G em varias localidades ate que 
todos os pontos de F correspondam a 
todos os pontos de G. Neste local, a 
correlagao entre a cena e o padrao e 
maxima, ou seja, para todos os pon- 
tos de F existe um ponto correspon- 
dente em G. 

CORRELAGAO 

Uma das medidas mais simples e 
imediatas da similaridade entre um pa- 
drao e uma cena e o quadrado de sua 



diferenga (Distcincia Euclidiana) ex- 
pressa pela fdrmula D = (F - G)**2. 
Para realizarmos essa expressao no 
computador consideraremos que F e 
G sao definidos como matrizes de pon- 
tos. Assim sendo, G ser£ uma matriz 
de m linhas por n colunas (G (m,n)), 
e F uma matriz de k linhas por / colu- 
nas (F (k,U). Quase sempre F e menor 
que G. Assim sendo, a figura 1 pode- 
ria ser representada na forma matricial 
como mostrado na figura 2. 

A procure pelo ponto de registro en- 
tre o padrao e a cena, ou seja, o ponto 
de casamento, e feita posicionando- 
-se o padrao F sobre a cena G em to- 
dos os locais possiveis, o que na no- 
tagao escolhida 6 o mesmo que 
comparer F (u,v) com G (u,v), para u 
acompanhando todas as linhas de 1 a 
I e, v acompanhando as colunas de 1 
a k. Essa procura deve ser feita em to- 
dos os pontos (x',y'l possiveis de G, ou 
seja, nos (m-k+1) times (n-l+1) pontos. 

Assim fazemos o registro, o 
'matching', usando o principio da cor- 
relagao, ou da cross-correlagao, que 
matematicamente e definida como: 



e para cada valor de (x',y') ter-se-£ um 
valor do somatorio. Se considerarmos 
cena e padrao entidades bin£rias, ou 
seja, valores 0 (zero) pare o fundo e 1 
(um) para o contorno, teremos o valor 
mciximo de correlagao igual ao valor da 
soma dos pontos 1 da matriz F, isso no 
ponto (x — o, y — o) otimo. 

Caso o padrao so se encontre em 
(x— o, y— o) todos os outros pontos 
apresentarao valor do somatdrio infe- 
rior a este. 



UM EXEMPLO DE “MATCHING" - IDEIA 

A ideia principal da implementagao 
foi fazer a correlagao de padroes bem 
definidos e conhecidos sobre uma cena 
como arranjos unidimensionais 
(vetores) e nao como matrizes, o que 
facilitou muito a programagao. Outro 
detalhe foi o da visualizagao dos ele- 
mentos desses arrays, onde optou-se 
pela apresentagao de caracteres gr£fi- 
cos da tela de texto e nao de pixels na 
tela grcifica. Notem, nesse ultimo, o 
compromisso entre visualizagao, ou 
seja, tamanho da cena e padrao, vis- 
tos pelo usu£rio, e rapidez, j£ que, se 
operassemos em tela gr^fica, o numero 
de comparagoes seria muito elevado 
para uma figura do mesmo tamanho, 
e o desempenho do computador no 
exemplo nao seria muito bom para os 
usuarios de m£quinas pequenas. 

0 cbdigo-fonte foi desenvolvido 
para ser compilado no Turbo Cversao 
2.0, mas pode ser facilmente modifi- 
cado para outros compiladores C, 
como os da Microsoft. As fungoes 
abaixo citadas tern os seguintes obje- 
tivos: 

faz— cena (). - adiciona um ruido ci ma- 



triz da cena, escolhe uma posigao ale- 
atbria e nela coloca um determinado 
padrao (figura). 

mostra— cena (). - respons^vel pela vi- 
sualizagao da cena na tela. Atribui aos 
inteiros 1 um caracter em forma de 
bloco cheio e aos inteiros 0 um carac- 
ter achuriado. 

mostra— fig (). - semelhante & anterior 
para visualizar o padrao. 
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gera— rufdo (). - adiciona um ruido 
branco ci matriz'da cena. 

cross (). - e a principal funcao do pro- 
grama, a responsavel pela correlacao 
entre o padrao e a cena. Sua varicivel 
localloc marca o ponto maximo de cor- 
relacao, o ponto de 'matching', ou seja, 
de maxima correlacao. 



ou, melhorainda, de Reconhecimento 
de Padroes, a cross-correlarpao situa- 
-se entre as tarefas mais simples de im- 
plementacao, muito embora possua li- 
mitados recursos diante de 
procedimentos como rotapao ou am- 
pliacao do padrao na cena. De qual- 
quer modo ai est£ o inicio de uma area 
que ainda tern muito a ser explorada. 



wood Cliffs, U.J. 1982. 

MASCARENHAS, N.D.A Et VE- 
LASCO, F.R.D. Processamento Digital 
de Imagens; IV Escola de 
Computacao/IME - Sao Paulor1984. 



marcador (). - recebe o valor do ponto 
de 'matching' da funcao (o ponto num 
array) cross e assinala esse ponto na 
matriz da cena da tela. 

CONCUJSAO 

Dentro das tarefas basicas de P.l. 



Bibliografia 

GONZALEZ, R.C. & WINTZ,P. Digital 
Image Processing segunda edicao; Ad- 
dison Wesley Publishing Co. 1987. 
ISBN 0-201-11026-1. 

BALLARD, D.H. & BROWN, C.R. 
Computer Vision; Prentice-Hall, Engle- 



EVANDRO EDUARDO SERON RUIZ 6 
graduado pela USP. mestre pela Unicamp 
e docente da FFCLRP/USP 

APARECIDO DONISETI DA COSTA 6 t6c 
nico especializado da £rea de M a tern 3 
tica. Estatistica e ComputagSo da FF- 
CLRP USP Formado am Processamento 
de Dados, atualmente cursa An^ilise de 
Sistemas. 
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(define N_FI6 4 It nuaero aaxiao de figuras tl 

(define TAI1_FIG 25 It taaanho aaxiao da figura t / 

int LETY [TAH_FI6] = {1,0, 0,0,1, 

0 , 1 , 0 , 1 , 0 , 

0 , 0 , 1 , 0 , 0 , 

0 , 0 , 1 , 0 , 0 , 

0,0,1,0,0); 

int LETN [TftH_FlG] = (0,0, 0,0,1, 

0 , 0 , 0 , 1 , 0 , 

0 , 0 , 1 , 0 , 0 , 

0 , 1 , 0 , 1 , 0 , 

1 , 0 , 0 , 0 , 11 ; 

int LETa [TAHJIG] = {1,0, 0,0,1, 

0 , 1 , 0 , 0 , 1 , 

0 , 0 , 1 , 0 , 1 , 

0 , 0 , 0 , 1 , 1 , 

M.l, 1.1)5 

int LETL [TAH_FI6] * {1,0, 1,0,1, 

1 , 0 , 1 , 0 , 0 , 

1,0, 1,1,1, 

1 , 0 , 0 , 0 , 0 , 

1,1, 1,1, 1)5 

int tajig [N_FIG] = {LETY, LETH, LETa, LETL); 
int cena [TAM_CEN] ; 
aain () 

{ 

int posicao, linha, coluna; 
int i; 

void aostrajig (int, int, int); 
void aostra_cen (int, int); 
void faz_cen (int); 
void aarcador (int); 
void fresc (void); 
void init (void); 
drscr (); It liapa tela I / 
init (); 
frescO; 

for (i=0; i<4; i++) 

{ 

faz_cen (i); 
ao5tra_cen (10,3); 
aostrajig (53,10,i); 
gotoxy (3,24); 

qprintf ('Procure pela figura ao lado, ou ...*); 
gotoxy (3,25); 

cprintf i ’TOQUE QUALQUER TECLA PARA IN1CIAR A CR0SS-C0RR 
ELACA0'); 
getch (); 

gotoxy (3,24); dreol (); 
gotoxy (3,25); dreol (); 
aarcador ( cross (i) ) ; 

1 

getch (); It paradinha tl 

1 

It )/ 

void faz cen (int fig) 

{ 

int col, lin, pos, lin_cen; 



int tpfig; 

void gera_ruido (void); 
gera_ruido (); 

It escolhe coluna e linha aleatorias 
para colocar uaa das figuras tl 
randoaize (); 
lin = randoa (16); 
col - randoa (26); 
pos = lin!30 ♦ col; 
pfig = ajig [fig]; 
lin_cen - pos; 
for (lin=0; lin<=4; lin++) 

{ 

for (col=0; col<=4; col++) 

{ 

cena [lin_cen+col] = tpfig; 

pfig++« 

1 

lin cen = lin cen+30; 

1 

1 

It |/ 

void aostra cen (int col, int lin) 

{ 

int x,y,laax,caax; 
int tpn; 
pn = cena; 
laax = 1 in+20; 
caax = col+30; 
gotoxy (col, lin); 
for (y=lin; y<laax; y++) 
for (x=col; x<caax; x++) 

{ 

gotoxy (x,y); 
if (tpn) 

cprintf CXc", BLOCK); 
else cprintf ('Ic', SPACE); 

P n+ +; 

1 

1 

It tl 

void aostra fig (int col, int lin, int fig) 

{ 

int x,y, laax, caax; 
int tpn; 

pn = ajig [fig]; 
laax = lin+5; 
caax = col+5; 
gotoxy (col, lin); 
for (y=lin; y<laax; y++) 
for (x=col; x<caax; x++) 

{ 

gotoxy (x,y); 
if (tpn) 

cprintf CIc', BLOCK); 
else cprintf ('Ic*, SPACE); 
pn++; 

1 
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SOFT./ LIVRE CIRCULAQAO 

DE DOMiNIO PUBLICO, SHAREWARE 



- SISTEMA OPERACIONAL 



- XINU: Clone Unix/Xenix (6 discos). 



- programaqAo 



LEX: Analisador de Lexlco, com Busca, Pro- 1 
cura e Varredura. 

BYACC: Gerador de "Parsing" (5 discos). 



Biblioteca de UtilitArios para WINDOWS (1 5 L 
Discos). 



- PROCESS/TEXTO 



GALAXY: CLONE WS. (2 Discos) 

CHIWRITER: Edit/GrAflco (2 D.). 

PC-WRITE: Proces. Completo (3 D.). 
BLACK-MAGIC: Hjpertext (3 D.). 

JOVE: WP./Mainframe, Adaptado p/ PCs 
(3 D.). 

QUIP: WP GrAfico, p/ 286 (4 D.). 

WORD FUGUE: Suporta Laser, Compat./WS 
(3 D.). 

INTEXT: Processador p/ VArias Lfnguas. 



- INTEGRAOOS 



COMPASS: Planil./Process./Contab./Ca- 

lend./UtiliL 

SSI : Planil./Process./BD/Comunic./CaF 

cul. /Util. -DOS (2 Discos). 

ALLINONE: Planllha, WP, BD, Comunic, Uti- 
liL 



- BANCO DE DADOS 



WAMPUM: Clona/DB3, Mono/Multius (2 D.). 
PC-FILEdb: GrAficos, Imp^Exp. DB3 (3 D.j. 
ZOOMRACKS: FichArio Eletron. (5 D.). 
IMAGE ACCESSr BD p/ Textos e GrAficos. 
ZEPHIR: BD Relacional (2 Discos). 



401 - PC-PROFESSOR: Ensino/Basic. 

402 - C-TUTOR: Ensino "C" (3 Discos). 

403 - TURBOC TUT: Ensino Turbo “C" (2 D.). 

404 - PASCAL TUTOR: Ensino Pascal (3 D.). 

405 - LOTUS LEARN: Ensino Lotus (3 D.). 

430 - TUTOR DOS: 21 LigOes/Ensino DOS (4 D.). 

431 - C++: Tutorial C++ (2 Discos). 

432 - PC ASSEMBLER HELP: Ensino Assembl. 

(2 D.). 



- EDUCATIVOS 



501 - FRENCH: Ensino Frances. 

503 - JAPANESE: Ensino Japonds. 

504 - GERMAN: Ensino AlemAo. 

505 - ITALIAN: Ensino Italiano. 

506 - FLASH CARDS: DicionArio InglAs/InglAs 

(4 □.). 

507 - CALCULUS: Ensino Algebra, Trigonometria. 

509 - VIDEOCHEM: Ensino da Qufmica. 

510 - GOGOL: Ensino Matem. p/Criangas. 

530 - WORD GALLERY: GrAficos p/ crlangas. 

531 - FAST TYPE: Ensino Datllografia. 

532 - OLE: Ensino Espanhol. 

533 - ELEMENT STUDY: Tab. Periddica, Qufmica. 

534 - PC GLOSSARY: GlossArio de InformAtica. 



- utiutArios 



600 - DISK COMMANDO: Clone "Norton". 

601 - LQPRINTER: lmpr./CaracL Graflc. 

605 - MYSTIC PASCAL Compil. "Pascal". 

606 - FANCY LABEL Etiquetas. 

610 - PKZIP SHEZ: CompacL/Descomp. (4 D.). 

633 - COMPACT ADORES: De Novas VersAes (3 D.). 

611 - ZIPZAP: Mostra/Edita Setores de Disco. 

612 - SECUREIT: Protege Arquivos, Seguranga. 

613 - TESSE RACT: Cria ProgramasTSR (2 D.). 

614 - HDM: Novoll Gerenc./HD, Password (2 D.). 

615 - LASER: ColetAnea de UtiliL (13 D.). 



HDTEST : Shell/DOS, Teste Hard, Alinh. 

Floppy (2 D.). 

PRINT CONTROL Imprime Janela de Telas. 
XBATCH: Utilit. p/ Arquivos Batch. 
BACKUP/RESTORE: UtiliL p / Backup/Restore. 
DIRECTOR: Interface p/ DOS. 

FILE PATCH: Edita Setores/Arquivos atA 
10 MB. 

DOSLOCK: Password p/ HD. 

FUGUE: Interf./DOS, Etiq. d Nome, Tamanho 
Arquivos (2 D.). 

• 623 - VMS40: Simula MemAria Expandida. 

• 624 - MODELS: “Case*Desenvolv./AplicaL/BD. 

• 625 - PC MASTERCONTROL CriagAo de Menus. 

• 626 - MR. LABEL Etiquetas, Enderegos. 

• 627 - ACTIVE LIFE: Agenda/CalendArio. 

• 628 - FORMGENN'S: Duplicator de Disquettes. 

• 629 - PC IRIS: Password p/ DOS e Arquivos. 

• 630 - ASC2COM: De ASCII para COM. 

• 631 - UNISCREEN: Gera Menus/Janelas (2 D.) 

• 632 - TEMESCAL Ferram. p / Desenv./Software. 

• 680 - CALMER: Clone Norton (4 Discos). 

• 681 - ROBERT: UtiliL/HD, Concatena/Criptogr., 

Pesquisa p / String (2 D.). 

• 682 - CORE: Testa a "PERFORMANCE" do Disco 

Rfgido e Controladora. 

• 683 - LZEXE: Cria Arquivos Autodecompactav. 



- ANTIVIRUS 



FLUSHOT PLUS: Protege Contra Vfrus. 
VIRUSFREE: Detecta/Elimina, Bloquela Vf- 
rus (4 D.). 



BIBLIOTECA DBASE, CUPPER, MFOX 



Rotinas UtiliU/Ferram^Aplicat. (65 D,). 



COMERCIAIS/FINANCEIROS 



900 - FLOWDRAM: Fluxogramas. 

901 - BAR CODE: CAdigo/Barra. 

902 - FORMASTER: Gerad./Formul. 

903 - CASE: Contab. (3 Discos). 

905 - INVENTORY: Estoque. 

906 - FINANCE MANAG: Contab. Partida Dupla 

(2 D.). 

910 - CHEQUEITOUT: Contro./ImpressAa/Cheques. 

912 - INVENTORY: Controle de Estoque. 

913 - INCONTROL Gerenc./EscritArio, Cashflow, 

InventArio, Discagem Autom. EscritArio Ele- 
trAnico etc. (2 D.). 

914 - PERSONAL PORTFOLIO: Analisador/Apli- 

cagAes (2 D.). 

980 - AXS: Contabilidade (7 Discos). 

930 - DAYO: Contab. Ctas/Pagar/Receber, Esto- 
que, Lista de Pregos etc. (23 Discos). 



ASEASYAS: Clone Lotus (2 D.). 

PC-CALC: FungAes Matem./Trigon./EstatisL 
(3 D.). 

INSTANTCALC: Planilha Resid./MemArla. 
POWER SHEETS: Planilha3D. (2 D.). 



comunicaqAo 



QMODEM: Transf./SubdiretArios, VArios Pro- 
toc. (3 D.). 

PROCOMrf: Emula Terminals (2 D.). 

PRIVATE LINE: Micro/Micro, Cabo-RS232. 
GTPOWERCOMM: Conversacional, Modo 

"Host" (4 D.). 

SERIAL FILE COPY: Transfere Arquivos 2 
CompuL entre 5.25" e 3.5" Via RS232. 
COMUNICAQAO: Novas VersAes Micro/Micro 
BBS (3 Discos). 

TELEMATE: Inclue Editor, Permitindo EdigAo 
SimultAnea a ComunicagAo. VArios Protoco- 
los (3 D.) 



- DESKTOP MANAGER 



HOMEBASE: Clone SK (3 Discos). 

NIFTY: Agenda, Calcul., etc. 

DESKTEAM: Agenda, Calcul., Calend./Re- 
sid. Mem. 

MEMTOOL TSR, Calcul./Calend./Editor, etc. 



GERENCI ADORES DE PROJETOS 



• 2000 - PC PROJECT: Crftica, Grafic.rGantr (2 D.). 

• 2001 - BESTGUES: AvaliagAo Tempo/Tarefa 

Met.“PeiT. 

• 2002 - EASY PROJECT: Projetos Comerc., Escala 

"Gantt". 

• 2030 - SIMPLE PROJECT: GrAficos de "Gantt". 

• 2031 - UDECIDE: Avalia OpgAes p/ Tomada/De- 

cisAo. 



- GRAFICOS 



• 1400 - PCKEYDRAW: Desktop Publ. (5 Discos). 

• 1401 - DANCAD/CAM: Animac./3 D (7 Discos). 

• 1402 - EXPRESSGRAPH: Linhas, Barras, Tortas. 

• 1403 - GRASP: Animac./Telas (2 Discos). 

• 1404 - CURVE DIGITIZER: GrAficos 2D. (2 D.). 

• 1405 - CUP ART: Desenhos p/ EditoragAo Eletron. 

(18 D.). 

TURBOFLOW: Fluxogramas. 

MEGACAD: 2 Vezes + Velos Autocad. (2 D.). 
TYPESETTER: Textos/GrAficos (2 D.). 
RUBICON: ComposIgAo TipogrAfica (3 D.). 

PC IMAGES: Captura Telas GrAficas. 



• 1680 - MICAL DiagnAstico MAdlco (3 Discos). 

• 1681 - PSICOMED: CompAndio PsicofarmacolAglco. 

• 1682 - CHIRO-B: Dados para MAdicos. 

• 1608 - DENTAL PM: BD p / dentistas(5 Discos). 

• 1600 - WORLD DIGITIZED: Cartog./Geogr. (4 D.). 

• 1690 - WORLD: 999 Cidades do Mundo no Mapa 
GeogrAfico d LaL, Long. 

VC.1DBASE: Catalog./Videocassete. 

FLOPPY CAT: Catalog./Discos. 

BOOK MINDER- Catalog. /Llvros/Revls- 

tas/Jornais. 

• 1603 - Bloritmo, Lotto, Fever, Tarot, Iching (3 D.). 

• 1683 - LOTO/SENA/ESPORTIVA: Ajuda a Fazer 

Provisoes 

• 1606 - FORTUNE: Astrol./Numerol./H. Chin. 

• 1607 - PC-MUSICIAN PIANOMAN: Mtisica (2 D.). 

• 1609 - OVERLOARD: Gerenc./Condomfnios (3 D.). 

• 1610 - PC MECHANIC: Gerenc. Frotas/Vefculos. 

• 5000 - TRADUTOR: Auxfllo p/ Tradugdes. 

• 5001 - ELETRO: InstalagAes ElAtrlcas (2 D.). 

• 5002 - DBS: BD p/ Engenharia ElAtrica (5 D.). 

• 1612 - GEOMANCY: Antiga Forma de DIvInagAo. 

• 1 630 - FAMILY HISTORY: Genealogla(3 D.). 



Labirintos, Cartas, Tabuleiro/Dados, Espor- 
te, Aventura: Chess/3D, Poker, Bridge, | 
Blackjak, SolitArios, Backgammon, Loteria, 
Slot Machine, Pinball, Guerra Espacial, Cor- 
ridas, FIcgAo, Mah Jong, etc. (50 Discos). 



- matemAtca ciEncias 



• 1800 - PWRSTR88: AnAllse NumArlca. 

• 1801 - CALCULUS 1: SArie Taylor/Fourier, Newton 

Eq. Ord./Diferenc., PolinAmios, Geom., 
Alg. Unear, Matrizes/Vetores (5 D.). 

• 1802 - STATMAT: AnAlise Estatfstica (3 D.). 

• 1803 - CHEMICAL EstruL Molecul. 3D. 

• 1804 - XACT: £mula HP12C e HP16C 

• 1805 - CRYSTAL Gera Modelos em Cristais em 3D. 



E AINDA: UtllltArios do XENIX p/ DOS, Conversores, 
AlimentagAo, Agrlcultura, Genealogia, Esporte, Bibllo- 
teca “C", Biblioteca Turbo Pascal, Astronomia, CiAncias 
Espaciais, InteligAncia Artificial, ReligiAo, Quiz, etc. 

MAIS DE 30.000 PROGRAMAS. 



PARA/PC, PC -XT, AT E COMPATf- ^ 7 a 

VEIS, DISCOS 5.25" E 3.5" L/ 0 :) !M nd ^ 

PREQO: A PARTIR DE Cr$ 2.000,00 ( 

POR C 6 PIA 

VIDEOTEXTO: Cr$ 20.000,00 
XINU: SISTEMA OPERACIONAL: 

Cr$ 20.000,00 




DOMiNIO PUBLICO SOFTWARE E PROCESSAMENTO DE DADOS LTDA. 
AV. PAULISTA, 352 - 95 ANDAR - CJ. 97 - CEP 01310 - SAO PAULO - SP 



(Oil) 



288-6898 

251-2344 



REMETEMOS P/TODO BRASIL 



SRI 

























) 


coluna •= posicao!30 + 10; 




It 1/ 


gotoxy (45,24); 




void gera ruido (void) 


cprintf CJA ENC0NTR0U ??? A6UARDE ! * ) 5 




( 


for (i=0; i<50; i++) 




int i,k,l; 


1 




for (i=0; i<TAN JAN; K+) 


gotoxy (6, linha); cprintf ('1c' , SETAE) ; 




cena [i] = 0; 


delay (50); 




randoaize (); 


gotoxy (6, linha); cprintf ( “Xc" ,NUL0); 




k = TftH JAN *1} 


delay (50); 




for ( i=0 ; i<=N RUIDO; i+O 


gotoxy (coluna, 24); cprintf (*lc*,SETAB); 




{ 


delay (50); 




1 = randoa(k); 


gotoxy (coluna, 24); cprintf (*Ic’,NUL0); 




cena [1] = 1; 


delay (50); 

\ 




J 

/ 


J 

gotoxy (45,24); 




It 1 / 


dreol (); 




int cross (int fig) 


} 




{ 


It 


... x! 


int i,j,k,l; 


void fresc (void) 




int loc = 0; 


{ 




int fcorr = 0; 


char til = "tttt tttt tttt tttt tttt* 




int tpcen, tpfig, tpcaux, tpontjig; 


char tl2 = *t t t t t t t ■ 




pont fia = a Jig [fig]; 


char 1 13 = ’t tttt t t tttt tttf 




pcen = cena; 


char t 14 = *t tt t t t V 




pfig = pont Jig; 


char 1 15 = “tttt t t tttt tttt tttf 




for (i=0; i<=15; i++) It fig percorre linhas da cena tl 


char tvt [5]; 




{ 


int i; 




for ( j=0; j <=25; j++) It fig percorre colunas da cena tl 


vt[0]=U; vt[l]=12; vt[2J=13; vt[3]=14; vt[4]=15; 


{ 


for ( i=0;i<5; i++) 




fcorr=0; 


{ 




pfig = pontjig; 


gotoxy (45,3+i); 




pcaux - pcen; 


cputs (vt[i]); 




for (k=0; k<=4; k*+) It correlacao figura It cena tl 

{ 

for (1=0; KM; 1++) 


) 

) 

It 




— XI 


{ 


void init (void) 




if ((tpcaux) == (tpfig)) 


{ 




fcorr*+; 


elrscrO; 




if (fcorr == TAH_FIG) 


printf ('Cross-correlacao 1.0\n‘); 




return loc; 
pf ig++; 


printf ("Evandro Eduardo Seron Ruiz\Aparecido Doniseti da 


Costa’); 




pcaux++; 


printf ( “FFCLRP - USP jun/91\n’); 




} 


sleep (2); 




pcaux r = pcaux+25; 

) i 

pcen++; 

loc++; 

} 

loc = loc+4; 
pcen = pcen+4; 

} 

return 0; 

} 

/I 1/ 

void aarcador lint posicao) 

{ 

int linha, coluna, i; 
linha = posicao/30 ♦ 3; 


drscr (); 

} 




It fia cross.c tl 
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A EDITORA 
ClENCIA MODERNA 
OFERECE A VOCE 




OPQOES 



QUE EXTRAIRAO 
RESULT ADOS 
MACROS DE 
SEUS MICROS 




DOMINANDO O TURBO C 

Stan Kelly-Bootle 
Formato: 16x23cm /626 p. 

Cr$ 8.640,00 



Marvm &iran • 



h %M- 

Pam PC 

BBB 1 

Guiade mmmm 
Hvferencia _ 
Fkjptdci M M MM 

MMMMl 
***** 
fffiv 



PAGEMAKER 4 GUIA DE 

referEncia rApida 

Marvin Bryan 
Formato: 14x21 / 164 p. 




AMPLIANDO O DOS 1991 

Rayduncan 

Formato: 16x23 /492 p. 



Cr$ 4.800,00 



Cr$ 10.600,00 




DOMINANDO O DOS Para 
as versdes 3.3 e 4 
Judd Robbins 
Formato: 16x23cm /680 p. 
Cr$ 11.900,00 




FERRAMENTAS EM 
TURBO PASCAL 



Frank Dutton 

Formato: 16x23cm /4 1 2 p. 
CrS 8.400,00 
* Disquete de 5,1/4" DD 
para IBM-PC e compatfveis 
contendo 134 programas 
deste livro: Cr$ 6.700,00 




PROGRAMAQAO EM 
TURBO C++ 

Ben Ezzel 

Formato: 16x23 /404 p. 
CrS 14.500,00 




DOMINANDO O TURBO 
PASCAL 5 



Douglas Hergert 
Formato: 16x23cm /572 p. 
Cr$ 8.400,00 
* Disquetes de 5,1/4" DD 
para IBM-PC e compatfveis 
contendo 22 programas 
deste livro: CrS 5.700,00 




PROGRAMAqAO GRAFICA 
EM TURBO C++ 

Ben Ezzel 

Formato: 16x23 /618 p. 

Cr$ 14.500,00 




Guia do Programador para 
as placas EGA e VGA 
Richard F. Ferraro 
Formato: 16x23cm /7 1 2 p. 
Cr$ 13.500,00 
# Disquete de 5,1/4" DD 
para IBM-PC e compatfveis 
contendo 80 programas 
deste livro: Cr$ 6.500,00 




DOMINANDO O NORTON 
UTILITIES 5 

Peter Dyson 

Formato: 16x23 /476 p. 
CrS 10.500,00 




BIBLIOTECAS EM TURBO 
PASCAL 



Adonai Alvino Pessoa 
Formato: 14x21cm / 1 32 p. 
Cr$ 3.900,00 
# Disquete de 5,1/4" DD 
para IBM PC e compatfveis 
contendo o programa deste 
livro: CrS 5.300,00 



Fa$a ja o seu pedido! 




DOM I NANDO A HP 
LASERJET 

AJan R. Neibauer 
Formato: 16x23cm /6 1 2 p. 
CrS 12.700,00 




DOMINANDO O 
WORD STAR 5.5 

Greg Harvey 
David J. Clark 
Formato: 16x23 /440 p. 
CrS 10.000,00 




INTRODUQAO AO Quick 
BASIC 

Armando Oscar C. Filho 
Formato: 16x23cm /3 1 2 p. 
Cr$ 5.400,00 
* Disquetes de 5,1/4" DD 
para IBM-PC e compatfveis 
contendo 15 rotmas prontas 
para uso. : Cr$ 5.700,00 

/tjEDITORA 

^tyfcifmciA nnoDSRNA 



Desejo receber da EDITORA ClENCIA MODERNA o(s) livro(s). 



OBS . Os disquetes saoopcionais 



LIVROS 


DISQUETES 


( ) Dominando o DOS (CrS 11.900,00) 




( ) Ferramentas em Turbo Pascal (Cr$ 8.400,00) 


( ) (Cr$ 6.700,00) 


( ) Dominando o Turbo C (Cr$ 8.640,00) 




( ) Programa<?ao em Turbo C++ (CrS 14.500,00) 


( ) (Cr$ 9.000,00) 


( ) Dominando o Turbo Pascal 5 (Cr$ 8.400,00) 


( ) (CrS 5.700 00) 


( ) Pagemaker 4 guia de refer§ncia (Cr$ 4.800,00) 




( ) Programagao GrSfica em Turbo C++ (CrS 14.500,00) 


( ) (CrS 9.000,00) 


( ) Guia do Prog, para as placas EGA e VGA (CrS 13.500,00) 


( ) (CrS 6.500,00) 


( ) Ampliandoo DOS 1991 (Cr$ 10.600,00) 




( ) Dominando o Norton Utilities 5 (Cr$ 10.500,00) 




( ) Bibliotecas em Turbo Pascal (Cr$ 3.900,00) 


( ) (CrS 5.300,00) 


( ) Dominando a HP Laser Jet (Cr$ 12.700,00) 




( ) Dominando o Wordstar 5.5 (Cr$ 10.000,00) 




( ) Introduqao ao Quick BASIC (CrS 5.400,00) 


( ) (CrS 5.700,00) 







Nome: 



Endereco: 



Cidade: . 
Estado: . 
Cep: 



Envio anexo Cheque Nominal a 

EDITORA ClENCIA MODERNA, no valor correspondente 
do total do pedido: Cr$ 



Assinatura: 



Remeta seu pedido: Rua Washington Luiz, 09 Gr. 403 RJ - Cep. 20230 









RT/GO 



Disquetes: fundamentos 

Saiba tudo sobre seus disquetes 



Carlos Gongalves 



Os disquetes de 5 1/4 polegadas, tambem conhecidos 
por minidiscos, discos flexiveis, floppies ou disquetes, sao 
seguramente o principal meio de armazenamento de massa 
dos microcomputadores PC e seus compativeis. 

Desde o lancamento do primeiro modelo PC, em 1981 
no mercado americano, que estes vem equipados com uni- 
dades de discos (drive) de 5 1/4 polegadas, tornando-se 
assim um padrao. Este meio de armazenamento so veio 
a mudar em 1987 com o lancamento da s6rie PS/2 da IBM, 
onde foram adotadas unidades de discos que usam dis- 
cos de 3 1/2 polegadas conhecidos como microdiscos, sao 
mais resistentes e mais dur£veis que os de 5 1/4 polega- 
das, al6m de ocuparem menor espaco fisico, facilitando 
o manuseio e o armazenamento dos mesmos. 

Uma das primeiras coisas que voce tern que aprender 
a manipular de imediato (quando comega a lidar com com- 
putadores) sao os discos flexiveis. Como se sabe, e neles 
que serao armazenadas todas as informagoes necess£rias 
ao seu trabalho no computador. 

Vejamos de forma resumida como se apresenta fisica- 
mente um disco flexivel. Considere para tal a Figura 1 que 
mostra um disco tipico de 5 1/4 polegadas de diametro. 
0 disco propriamente dito estci envolvido por uma capa 
quadrada em material plcistico e semi-rigido com 3 furos. 
0 disco por sua vez tambem e de ptestico, porem fino, co- 
berto por uma camada de 6xido de ferro, nao muito dife- 
rente das fitas cassetes; ali£s, o principio fisico aqui en- 
volvido 6 o mesmo. O furo maior no centra do disco e para 
o eixo central do acionador de discos 
segurar o disco e poder gir£-lo dentro 
do envelope, enquanto o furo oblongo 
permite que o cabegote de gravagao/ 
leitura toque a superficie do disco para 
armazenar ou recuperar informagoes. 

0 furo circular menor e chamado furo 
indice, e se alinha no furo do disco em 
rotagao, informando a m£quina sua 
posigao ao girar (sinaliza ao aciona- 
dor o inicio das trilhas). 

O picote lateral na parte superior 
pode ser coberto por uma fita go- 
mada, fornecida na caixa junto com 
os disquetes pelo fabricante, a fim de 
evitar a escrita ou apagamento aciden- 
tal no disco. Uma tentativa de escrita 
Figura 1: anatomia de um disquete de 5 1/4 



ou apagamento em qualquer disco com o picote coberto 
provocara uma mensagem de erro pelo sistema informando 
a condigao de protegao contra a escrita ou apagamento. 
Isto e de grande utilidade no manuseio dos arquivos, 
evitando-se perdas acidentais. Todo disco flexivel vem acon- 
dicionado em envelopes de papel e deve Id permanecer 
quando nao estiver em uso. 

A transference da informagao entre o computador e o 
disco, e feita via cabegote de gravagao/leitura que pode 
se deslocar da borda exterior para o centra (Figura 2). O 
sistema e semelhante a um toca-discos, com o cabegote 
fazendo as vezes do brago fonocaptor, e o disco magnd- 
tico substituindo o nosso disco de vinil. As semelhangas 
cessam aqui contudo, pois a informagao contida num LP 
d lida de forma linear e nao e magnetica (estd escrita nos 
sulcos espiralados). Em verdade, os disquetes para o PC 
bdsico e PC/XT sao compostos por 40 trilhas concentri- 
cas e nao continuas, indo da posigao 0 mais externa d po- 
sigao 39 proxima do centra, podendo o cabegote ocupar 
40 posigoes diferentes. 

O PC/AT, entretanto, exige disquetes de formas seme- 
Ihantes, pordm com 80 trilhas ao inves de 40 (isto, sem du- 
vida, permitird maior capacidade de armazenamento). 

As trilhas, por sua vez, sao divididas em partes meno- 
res chamadas setores, numerados de 1 a 9 no PC basico 
ou PC/XT; na versao 1.0 do DOS sao numeradas de 1 a 
8. No PC/AT, todavia, cada trilha tern seus setores nu- 
merados de 1 a 15. Cada setor possui um tamanho fixo 
de 512 bytes e a informagao pode ser escrita nos dois la- 
dos do disco ou em um lado apenas. Dessa forma existem 
disquetes de dupla face ou simples face, bem como uni- 



capa externa de k protegao . " 7 

y orifficio central 




ao disco 
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Figura 2: Acionador de disco com um disquete de 5 1/4 

dades de disco correspondentes. Os disquetes de face sim- 
ples com 8 setores por trilha j£ est§o obsoletos e sSo re- 
manescentes da versSo 1.0 do DOS. 

E importante observar que uma unidade de disco de du- 
pla face consegue ler um disco de face simples, pon&m uma 
unidade de disco de face simples nao conseguird ler um 
disquete de dupla face. Diante dessas informapdes pode- 
mos determinar a capacidade de armazenamento de um 
disquete de dupla face com 9 setores por trilha (capacidade 
de armazenamento tipica de um PC-XT), como segue: 



na trilha mais interna. Dupla densidade pode ar- 
mazenar 5.776 bpi. 0 numero de trilhas por pole- 
gadas num disquete de dupla densidade e usual- 
mente de 48 tpi (tpi/tracks per inch), ou ainda 96 
tpi para os disquetes de quadrupla densidade. 



ESTRUTURA 
DO DISCO 


5,25 

Dupla 

Densi- 

dade 


5,25 

Alta 

Densi- 

dade 


3,5 

Dupla 

Densi- 

dade 


3,5 

Alta 

Densi- 

dade 


Num. de trilhas 


40 


80 


80 


80 


Setores/ trilha 


9 


15 


9 


18 


Caract. p/setor 


512 


512 


512 


512 


Total de setores 


720 


2400 


1440 


2880 


Total caracteres 


360K 


1.2M 


720K 


1.44M 



Tabela: possfveis organizaqoes de um disquete 

setorizacAo soft e setoriza^o hard 

Os setores s3o a unidade b£sica para armazena- 
mento nos discos. Toda vez que 6 feito um acesso 
aos dados num disquete, o mfnimo de um setor 6 
lido ou escrito. Acionadores de discos e disquetes 
sSo classificados em setorizapdo soft ou hard, de- 
pendendo de como o drive mant6m registro de onde 
os setores est§o localizados no disquete. 

Um disquete de setorizapdo hard possui um buraco na 
frente de cada setor, normalmente prdximo ao centra, e 
servindo de indicador para o drive (veja Figura 3). Por ser 
uma imposipdo de construpSo, o tamanho e o numero de 
setores dos disquetes de setorizapSo hard sdo sempre cons- 
tantes. 

Por outro lado, os disquetes de setorizapdo soft possuem 
um unico furo-indice que indica o inicio das trilhas. O nu- 
mero de setores por trilha e o tamanho de cada setor s3o 



- 40 trilhas x 9 setores x 512 bytes x 2 lados=368.640 bytes 
isto corresponde a 360 Kbytes (por definipao um Kilobyte 
6 igual a 1024 bytes). Qual ser£ a capacidade de um dis- 
quete com as caracteristicas acirna para um PC/AT? Con- 
fira sua resposta com a tabela dada adiante. 



definidos por um programa formatador que vem junto com 
o computador. 

0 PC da IBM usa disquetes de setores com tamanhos 
vari&veis. Por conta disso, todo disquete novo que destina- 
-se a uso num PC deve ter essa estrutura gravada no disco. 
Este processo 6 chamado formatapSo. 



DENSIDADE DE GRAVAQAO 

Na literature t^cnica 
define-se como numero de 
bits que podem ser grava- 
dos num disquete, numa 
circunferencia de uma po- 
legada, na trilha mais in- 
terna do disquete. Esta 
medida 6 referenciada 
como bits por polegada 
(bpi/bits per inch). Os bits 
por polegada variam de fa- 
bricante a fabricante. 
Como exemplo, um fabri- 
cante especifica que drives 
de densidade simples po- 
dem armazenar 2.748 bpi 





setorizapao soft setorizapao hard 



Figura 3: disquetes de 5 1/4 com setorizagao soft e hard, 
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par t leu la de 
f umo _ - 
6.35 10 cm 



■ cabelo 

particula huwano 

de poeira 0 076 CM aian. 



'%S» yyy'^ "^ j 

cabecote 



iMpressao 

digital 



\ 



yx\ (' \ 

cr , ^ ) 



j caoem ic , , r i I ... | \ / 

a L ler/escr. J r -, x - \ \ ,> N.._ _y 

■r 



a = 2.54 ie' b cn 



supepficie do disco 



Figura 4 - mostra aproximadamente o afastamento entre a cabeca flutuante do drive e a superficie'do 
disco Icerca de um milionesimo de polegada). Com estas toierincias, contaminagdes tais como particulas 
de fumo, poeira, impressoes digitais ou mesmo o cabelo humano podem tornar o drive inutilizado. 



ACESSO AOS DADOS NO DISCO 



Embora o tempo de acesso aos dados nos discos, em 
m£dia, n§o seja grande, ele e realmente significativo quando 
comparado com o tempo de acesso & memoria semicon- 
dutora. Quatro fatores b£sicos determinam o tempo ne- 
cess^rio para o acesso aos dados nos discos, sejam dis- 
quetes ou discos rigidos. 

— Tempo de localizagao ou latencia - E o tempo neces- 
s3rio para o brago de acesso posicionar-se sobre uma tri- 
Iha em particular. Lembre-se de que o brago de acesso 
move-se como uma unidade e, no minimo, ele est^ simul- 
taneamente sobre duas trilhas, no caso particular dos dis- 
quetes. 

— Comutagao das cabegas de leitura/escrita - E a ati- 
vagao de uma cabega de leitura/escrita em particular, so- 
bre uma trilha numa das superficies do disquete. Este 
tempo e desiifoeivel pois d3-se ci velocidade da corrente 
etetrica. 

— Intervalo rotacional - Depois de posicionados o bra- 
go de acesso e as cabegas de leitura/escrita, h& um pe- 
queno intervalo de espera ate que o setor na trilha passe 
sob ela. 

- Transference dos dados - E a agao de transferir os 
dados entre o armazenamento primario e o local na trilha 
do disco, se .voce esta escrevendo, e da trilha do disco 
para o armazenamento primario se voce esta executando 
uma operagao de leitura. 

As unidades usuais de tempo acima sao em milissegu 
ndos (1 /1.000s), excetuando a unidade de transference dos 
dados que e em bytes por segundo. 

CUIDADOS COM OS DISQUETES 

Qualquer usuario que ja tenha manuseado um disque- 
te, percebe de imediato alguns icones acompanhados de 
algum texto na face posterior da capa externa que o en- 
volve, dando informagoes quanto ao manuseio e conser- 
vagao. Na maior parte das vezes, os usuarios sequer 
dao qualquer atengao a esse tipo de informagao. 

Vejamos por que essas informagoes sao importantes para 
preservar um disquete: 



1 - Colocar sempre os disque- 
tes na capa, quando nao em 
uso. Isto evitara que poeira, cin- 
zas de cigarros, po de giz ou 
outras microparticulas presentes 
no ambiente, incidam sobre as 
aberturas do mesmo, contami- 
nando-o. 

2 - Nunca tocar com os de- 
dos no orificio de acesso do ca- 
begote. Fundamental, pois a 
impressao digital deixada sobre 
a superficie do disco poderci 
dificultar a leitura/escrita no 
meio. 

3 - Nao dobrar ou flexionar o 
disquete. Um disquete empenado nao se ajustarci adequ- 
adamente na unidade de disco, onde os ajustes sao de pre- 
cisao milimetrica. (Veja a Figura 4). 

4 - Jamais colocar os disquetes proximos a campos 
magneticos. Devido ao fato do disquete ser um meio 
magnetiz£vel, a aproximagao de equipamentos ou dispo- 
sitivos que gerem campos magneticos, podera adulterar 
ou mesmo apagar as informagoes l£ gravadas. A perda e 
irrecuper£vel, a menos que voce disponha de uma c6pia 
backup (copia de reserva) do disco danificado, de onde 
possa recuperar o que foi perdido. O disquete n3o se 
tornaici imprestcivel se tal fato acontecer, haver& apenas 
uma perda do conteudo l£ gravado. Portanto, evite por 
seus disquetes em cima ou prdximos de caixas de som, 
televisores, imeis, mesas digitalizadoras, tranformadores, 
estabilizadores de tensao e assim por diante. 

5 - Nao exponha os disquetes a temperatures elevadas. 
A id6ia aqui 6 evitar empenos no disquete, que sao com- 
postos basicamente de ptestico. A temperature ideal re- 
comendada pelos fabricantes varia de 10° C a 52° C, no m£- 
ximo. Temperaturas prdximas do minimo sao mais 
recomendaveis. 

6 - Insira o disquete na unidade de discos do compu- 
tador cuidadosamente. A pressa continua sendo a ini- 
miga da perfeigao. Devido a abertura de entrada do 
disco ser bem ajustada, falta de habilidade aliada a mo- 
vimentos bruscos poderao tornar seus disquetes empe- 
nados e imprestciveis para uso. 

As recomendagoes acima podem parecer excessivas b 
primeira vista, mas nao se iluda, acidentes com disquetes 
com eventuais perdas de valiosas informagoes acontecem 
todo tempo. Cuidados preventives sao mais faceis de se 
ter que refazer todo um trabalho que levou dias, como um 
capitulo de um livro que estava gravado no disco aciden- 
tado, alem de que a observagao desses cuidados torna-se 
um hcibito com o passar do tempo. 



CARLOS GONQALVES 6 professor de Introdupao £ Compu- 
tagao e de Linguagens de Programagao do Curso de Compu* 
ta<pao da UFMA. 
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MS.OM/91 



Tudo Comega com Informagdo 




USANDO NORTON UTIUmES 

Rob Km mm 

O Guia oficial, ilustrado, para o 
NORTON UTILITIES 

424 pigs./Form. 17x24 C6d. 643 

Cr$ 20.860,00 

IBM PC PROBLEMAS E SOLUTES 

Peter Norton & Robert Jourda in 
O guia indispensavel para o 
dia-a-dia do usuario 
529 p£gs./Form. 17x24 C6d. 658 
Cr$ 28.280,00 

NOVO GUIA PETER NORTON 
PARA PROGRAMADORES 
DO IBM PC & PS/2 

Peter Norton & Richard Wilton 
O Guia definitivo para a linha 
inteira de computadores IBM PC 
e PS/2 e compativeis 

484 pigs ./Form. 17x24 C6d. 623 

CrS 27.860,00 

USANDO FREELANCE PLUS 

James G. Meade 
Abrange as versoes 2 e 3- 
Inst rug oes Passo a Passo 
Tecnicas avangadas para 
geragao de grajicos 
238 pags./Form. 17x24 C6d. 652 
CrS 22.120.00 



USANDO PAGEMAKER 

Rick Sullivan 

Tradugao da 2 Q edigao americana 

298 pags./Form. 17x24 C6d. 646 
CrS 20.580,00 

DES VEND ANDO O MACINTOSH 

Peter Norton & Jim Heid 

Guia para explorar a tecnologia 

Macintosh 

624 pigs./Form. 17x24 Cod. 665 
CrS 27.860,00 

TUDO SOBRE MICROSOFT 
WORD 5.0 

Hamilton Ziegler 

Urn livro totalmente produzido para a 
versao em portugues do programa. 

216 pigs./Form. 17x24 C6d. 676 

CrS 16.520,00 

GUIA DO DOS 

Peter Norton 

3 a Edigao Americana. Mais de 500 
mil exemplares vendidos no mundo. 

436 pigs./Form. 17x24 C6d. 645 
CrS 18.620.00 



EXPLORANDO WINDOWS 3 

Lori L. Lorenz & R. Michael O’Mara 
O mais abrangente livro sobre o 
Windows 3- 

547 pags./Form. 17x24 Cod. 656 

CrS 25.620,00 

EXPLORANDO PC TOOLS 
DELUXE 6 

Peter Dyson 

Ache seu caminho por entre 
arquivos, disquetes e seu disco 
rtgidocom facilidade 

448 pigs. /Form. 17x24 C6d. 657 

CrS 23.100,00 

USANDO HARVARD GRAPHICS 

S. Sagman & J.G. Sandlar 

Instrugoes passo a passo. 

Centenas de quadros e grajicos 

404 pags./Form. 17x24 Cod. 637 

CrS 22.540,00 

DES VEND ANDO O HARDWARE 
DO PC 

Winn L. Rosch 

A verdadeira Biblia do Hardware 
552 pags./Form. 17x24 C6d. 633 
CrS 24.640,00 

USANDO MS-DOS 

Van Wolverton 

O Guia do DOS atualizado ate a 
versao 4.0 - Tradugao da 4° 
edigao americana 
560 pigs./Form. 17x24 C6d. 617 
CrS 24.220,00 




Editora Campus 
A QUALIDADE AO 
SEU ALCANCE 





QUE - DICIONARIO DOS 
USUARIOS DE 
MICROCOMPUTADORES 

Bryan Pfaffenberger 
Versao Portugues-Ingles e 
Ingles-Portugues 

572 pigs. /Form. 12x21 C6d. 705 

CrS 22.260,00 



USANDO NOVELL NETWARE 

Cheryl C. Currid & Craig A. Gillett 
Tutorial pratico e referenda de todos 
os comandos, incluindo um guia para 
localizagao de erros. 

348 pags./Form. 17x24 C6d. 635 

CrS 17.360,00 

Q Editora Campus Ltda 

A QUALIDADE DA INFORMATICA 

RIO DE JANEIRO 

Rua Bor do de hapogipe 55 Rio Comprido CEP 2026 1 
Telefone; (021) 2916443 Telex: (02 1) 32606 EDCP BR 
FAX: (02 1) 293-5683 Rio de Janeiro 

5 AO PAULO 

Rua da Consolacao 348 IO s Conjunlo 102 CEP 01 302 
Telefone/FAX (Oil) 259-990 1 Soo Paulo 




FAQA JA O SEU PEDIDO! 



LIVROS 



OUANT 


COD. 


PRECO 


OUANT 


COD. 


PRECO 




























































































Pregos vaiidos at6 31/12/91 



Desejo receber da Editora Campus o(s) livro(s). 

Anexo cheque no valor total do pedido. 

Banco: N° do cheque: 

Nome: 

Endere^o: 

Cidade: 

Estado: Cep: 

Assinatura: 

Se preferir fa^a o pagamento com cartao de credito sem nenhum acrescimo. 

Cartao: Val / / 

N°: 

Bradesco e todos os Cartoes VISA 



REMETA O SEU PEDIDO PARA: Rua Washington Luiz, 09 - Gr. 403 - RJ - CEP: 20230 





Nao use a memoria, use o micro 

Descubra as facilidades e mordomias de uma agenda telefonica. 
Aproveite para aumentar seus conhecimentos sobre 
programagao em Clipper. 



Vicente Jos6 Moredo 



Este programs tem como objetivo armazenar e orga- 
nizar uma agenda telefdnica pessoal ou at6 mesmo de uma 
empresa. E escrito em Clipper Summer 87, roda com 512 
Kb de memoria e usa opcionalmente uma impressora. 

Foi dividido em mddulos distintos, e o codigo-fonte do 
programs est£ bastante otimizado devido & estrutura de 
programagao utilizada. No arquivo AGEPROC.PRG estao 
contidas as procedures usadas v£rias vezes pelos outros 
mbdulos (6 como se acrescent£ssemos uma nova biblio- 
teca de rotinas). 

FUNCIONAMENTO 

0 funcionamento do programs 6 simples. HS um menu 
principal onde estSo as opgoes prim£rias. Sao elas: 

1. AGENDA TELEFONICA - Aces sa o modulo de geren- 
ciamento de agenda telefonica. 

1.1 - INSERE NOMES NA AGENDA - E o mbdulo desti- 

nado ci inserp§o dos registros no arquivo. Quando selecio- 
nado, cbama uma tela de entrada de dados onde apare- 
cem 4 campos: NOME com 15 caracteres; 

ESPECIFICAQAO com 35; TELEFONE com 12 e FAX com 
12 tamb6m. Devido ao ritmo com que as empresas estao 
adotando o FAX, achei interessante colocar um campo para 
ele. No entanto este campo pode ser modificado facilmente. 

Quando o campo NOME estiver em branco ou em qu- 
alquer ponto da inserg3o for teclado [ESC], ou mesmo a 
digitagSo estiver completa, o programa pede uma confir- 
mapfloo ao usu£rio. Este tem que definir se quer (l)nserir 
o registro, (C)orrigi-lo ou (A)nul£-lo. Se for teclado [A] o 
controle volta para o menu principal. Qualquer uma das 
outras alternativas, [C] ou [I], faz com que o programa per- 
gunte se queremos continuar ou n§o. Caso positivo, os 
campos sSo limpos e a inserpSo comega novamente. Note- 
-se que o registro s6 seici inserido se a tecla [I] for pres- 
sionada. 

1.2 - ALTERA REGISTROS DA AGENDA - M6dulo des- 
tinado a alteragao de registros j3 inseridos. Existe a pos- 
sibilidade de escolha do modo com que os registros serao 
procurados e alterados 



• Modulo: AGENDA.PBG 



» 

* AGENDA v2.0 - AGENDA TELEFONICA 
t VICENTE JOSE HOREDO - 07/91 
I BURN BITS INFORHATICA 
I MODULO PRINCIPAL 

t 

SET BELL OFF 
SET DATE BRITISH 
SET TALK OFF 
SET SCORE OFF 
SETCANCEM.F.) 

SET PROCEDURE TO ABEPROC 
SET MESSAGE TO 22 CENTER 
DO VERIFICA 

USE AGENDA INDEX AGENDA 

PUBLIC CERT , CHESP , NOBE , MCA , BEMOTE , CAM I NHO 

HCA=255 

BEM0TE=" 

N08E=SPACE(14) 

CHESP=SPACE(35) 

0P=1 



CLEAR 

SET COLOR TO N/B.R 
§ 10,13 TO 14,64 
SET COLOR TO 

« 11,15 SAY 'AGENDA v2.0 * AGENDA TELEFONICA - BURN BITS 1 
991' 

§ 12,24 SAY 'por Vicente Jose Moredo - 07/91' 

« 13,30 SAY 'e CLIPPER Suaaer 87' 

INKEY (5) 

DO WHILE .T. 

SET CURSOR OFF 

DO MOLDURA WITH MENU PRINCIPAL DE 0PERAC0ES 
« 7,27 PROMPT 'AGENDA TELEFONICA' MESSAGE 'ACESSA 0 HOD 
ULO DE MANUSEI0 DE REGISTROS E RELATOR I OS' 

8 9,27 PROMPT 'EDITOR DE TEXTOS' MESSAGE 'ACESSA 0 HODU 
L0 EDITOR DE TEXTOS DO SISTEHA' 
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£ 11,27 PROMPT ' CALENDARIO ' MESSAGE ' ACESSA Q MODULO DE 
CALENDARIO E C0NTA6EM DE DIAS ENTRE DATAS' 

£ 13,27 PROMPT CONFIGURA AHBIENTE' MESSAGE 'ACESSA 0 H 
ENU OE OPCOES DE C0NFI6URACA0 DE AMBIENTE' 

6 15,27 PROMPT ' UTILITARIQS' MESSAGE 'ACESSA 0 MODULO D 
E UTILITARIQS E COMANDOS DO DISCO' 

£ 17,27 FROMPT 'FIM DE PROCESSAMENTO ‘ MESSAGE 'RETORNA 

0 CONTROLE AO SISTEMA OPERACIONAL’ 

READ 

MENU TO OP 
DO CASE 
CASE OP=l 

DO AGEMAN 
CASE 0P=2 

DO AGETEXT 
CASE 0P=3 

DO AGEDATA 
CASE 0P=4 

DO AGECONF 
CASE 0P=5 

DO AGEUTIL 
CASE 0P=6 
EXIT 
ENDCASE 
ENDDO 
CLEAR ALL 
CLEAR 

SET COLOR TO B/H 
£ 11,32 TO 14,46 DOUBLE 
C 12,33 SAY ' ATE MAIS! ' 

£ 13,33 SAY ' BURN BITS ' 

SET COLOR TO 
SET CURSOR ON 

1 23,0 
QUIT 



1.2.1 - ALTERA REGISTROS - Inicia uma tela onde pode 
ser alterado urn registro por vez, mostrando todos os da- 
dos deste registro. Na parte de cima da tela aparecerd uma 
janela contendo o numero total de registros e o numero 
do registro corrente. No meio da tela est£ a janela onde 
estarao as informapoes de cada registro e abaixo uma ou- 
tre janela contendo uma linha de comandos que podem 
ser executados pplo mddulo. Os comandos s3o: 

1 .2.1.1 - PARA FRENTE - Anda o ponteiro do arquivo 1 
registro para f rente. 

1.2.1.2 - PARA TRAS - Anda o ponteiro do arquivo um reg- 
sitro para ticis. 

1.2.1 .3 - PROCURA - Pede um nome ao usudrio e caso o 
registro contendo essejnome exista, move o ponteiro at6 
ele. Devo lembrar que o m6todo de procure 6 escolhido 
pelo prbprio usudrio. Voce pode escolher por procura pelo 
arquivo de indexapSo.ou por uma "chave" de procura. No 
primeiro modo, aprocura s6 vai funcionar se for digitado 
exatamente o que estiver contido no campo. J£ no segu- 
ndo, a “chave" de procura significa um "pedapo" do nome 
desejado a ser encontrado. EntSo, se voce digitar "ANA" 
o programa movers o ponteiro at§ os registros ADRIANA, 



TATIANA e ANA, por exemplo. H£ uma ressalva no se- 
gundo m6todo: ele 6 bem mais demorado que o primeiro, 
que § praticamente imediato. Ai temos que pesar uma pro- 
cura flexlvel com uma procura rdpida. 

1.2.1 .4 - ALTERA - Esta 6 a alterapao propriamente dita. 
Na janela central estao os campos do arquivo e as infor- 
mapoes de cada registro. Cada campo possui um numero 
no seu comepo; por este numero o usudrio vai definir o 
que deseja alterar: [1J para NOME; [2] para ESPECIFI- 
CAQAO; [3] para TELEFONE e [4] para FAX. Ap6s digi- 
tado [A], o programa pede o numero do campo; uma vez 
digitado, § aberta uma janela de edipao onde estar£ o con- 
teudo do campo desejado para alterap§o. O usudrio digita 
e 6 aberta uma janela de edipSo onde estarS o conteudo 
atual do campo escolhido para alterap2o. A partir disso 6 
s6 alterar o que Ihe convir e teclar [ENTER]. 

1.2.1 .5 - RETORNA - Retorna ao menu principal. 

1.2.2 - ALTERAR POR JANELA DE EDIQAO - Tamb6m 
serve para alterar os regsitros, mas s6 que desta vez por 
janelas de edip§o. Ser3o mostrados os registros em ordem 
de indexapao, um abaixo do outro, na janela. Tecle [ENTER] 
em cima de um campo para alterd-lo. Este mudarS de cor 
e entao 6 s6 digitar o novo conteudo. Tecle [P] para pro- 
curer um regsitro pelo nome. Terminadas as alterapSes e/ou 
consultas 6 s6 teclar [ESC] para sair da oppao. 



• Modulo: HELP.PRG 



I AGENDA v2.0 - AGENDA TELEFONICA 
I BURN BITS INFORHATICA 
I MODULO HELP - AJUDA AO USUARIO 

I 

SAVE SCREEN TO HELPS 
SET COLOR TO N+/R 
£ 5,8 CLEAR TO 21,71 
I 5,8 TO 21,71 DOUBLE 

£ 6,18 SAY 'AGENDA - AGENDA TELEFONICA - Versao 2.0' 

SET C 

0L0R TO N/R 

§ 8,10 SAY ' TECLAS PARA CONTROLE DE EDICAO E E 
SCOLHA' 

i 9,10 SAY ' ' 

« 11 

,10 SAY ‘[Enter]-)Da entrada nos dados ou efetua escolhas 
nos aenus' 

I 12,10 SAY '[Setas]->Moviaenta barras do aenu ou cursor' 
C 13,10 SAY '[Hoae] ->Vai para o inicio do aenu ou caapo' 

§ 14,10 SAY '[End] ->Vai para o fia do aenu ou caapo* 

I 15,10 SAY '[( — ] ->Apaga ultiao caractere pressionado' 

I 16,10 SAY '[Ins] ->Liga ou desliga o aodo de instrcao' 

B 17,10 SAY '[Del] ->Apaga o caracter sob o cursor' 

£ 18,10 SAY '[ A Y] ->Aoaga todo o conteudo de ua caapo' 

SET COLOR TO B/H 

£ 20,23 SAY 'PRESSI0NE AL6UHA TECLA PARA SAIR' 

SET CURSOR OFF 
INKEY(O) 

SET COLOR TO 

RESTORE SCREEN FROM HELPS 
RETURN 
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* * * BURN BITS INFORMATION * * * 

AGENDA v2.0 - AGENDA TELEFONICA 
LISTAGEM PARCIAL DO ARQUIVO FOR NOME - CHAVE="V" 



DATA ATUAL : 02/10/91 PAGJ.NA No 1 



NOME 


ESPECIFICACAO 


TELEFONE 


FAX 


VALTER VICTOR 
VICENTE MOREDO 


UIZINHO 

COLABORADOR DE MT.CRO-SISTEMAS 


011 950 0606 
011 9i2 6400 


Oil 912 0461 



* TOTAL: 2 registros. 



Listagem parcial do arquivo por chave 



1.3 - APAGA REGISTROS DA AGENDA - Utilizado para 
apagar um ou mais registros, este modulo funciona da se- 
guinte maneira: o programa apresenta as opgoes de pro- 
cure dos registros. O usu£rio pode escolher por NOME, ES- 
PECIFICAQAO e TELEFONE, al6m de poder retornar ao 
menu anterior, pelo campo escolhido. Em seguida e pe- 
dida uma "chave" para procurer os registros que atendam 
£ condipSo. As informapoes dos campos NOME, ESPE- 
CIFICAQAO e TELEFONE, inerentes ao regsitro, sao mos- 
tradas em uma janela no meio da tela. Abaixo da janela 
aparece um pedido de confirmapao "QUER APAGAR ESTE 
(S/N):" Confirmada ou n§o a delepSo, o programa salta 
para uma nova pergunta: "CONTINUA PROCURA (S/N):". 
Se for pptado por continuar, at6 que o ponteiro encontre 
o final do arquivo e toque uma campainha, o programa pro- 
cure registros que atendam a especificapSo. Ap6s termi- 
nada esta operapao, voltamos para o comepo do mbdulo 
onde novamente e pedida a oppSo de procure desejada. 
Se foram escolhidos regsitros para apagar, quando optar 
por retornar ao menu anterior, o programa exibirS uma men- 
sagem de espera e organized o arquivo sem os regsitros 
apagados. 



• Modulo: AGEMAN.PRG 



— »> A6EHAN.PRG 

I 

I AGENDA v2.0 - AGENDA TELEFONICA 
t BURN BITS INFQRMATICA 
t MODULO MANUSEIO DE REGISTROS 

I 

0PMAN=1 
DO WHILE .T. 

DO NOLDURA WITH - MODULO AGENDA TELEFONIC 
A - 

C 8,27 PROMPT ' INSERE REGISTROS NA AGENDA' MESSAGE 'INS 
ERIR REGISTROS NO ARQUIVO DE QADOS' 

e 10,27 PROMPT 'ALTERA REGISTROS DA AGENDA' MESSAGE 'AL 
TERAR REGISTROS INSERIDOS NO ARQUIVO DE DADOS' 

e 12,27 PROMPT 'APAGA REGISTROS DA AGENDA' MESSAGE 'APA 
GAR REGISTROS DO ARQUIVO DE DADOS' 

« 14,27 PROMPT 'EMITE LISTAGENS DO ARQUIVO' MESSAGE 'EM 
ITIR LISTAGENS DIVERSAS DO ARQUIVO DE DADOS' 

I 16,27 PROMPT 'RETORNA AO MENU PRINCIPAL' MESSAGE 'RET 
ORNAR AO MENU PRINCIPAL’ 

MENU TO OPMAN 



DO CASE 

CASE 0PMAN=1 
DG A6EIN 

CASE 0PNAN=2 
0PHENUAL=1 

« 9,24 CLEAR TO 16,55 
* 10.27 PROMPT ’ ALTERAR RESISTROS' MESSAGE 
' ALTERAR/CONSULTAF: REGISTROS UM A UM COM TELA UN1CA’ 

I 12,27 PROMPT 'ALTERAR POR JANELA DE ED1CA0' 
MESSAGE 'ALTERAR/CONSULTAfi REGISTROS POR JANELA DE EDICAO 
« 14,27 PROMPT RETORNA AO MENU ANTERIOR' MESSAGE 
RETORNA AO MENU ANTERIOR' 

MENU TO 3PMENUAL 
IF CPMENUAL=1 
DO AGEAL1 
ELSEIF 0PMEN'JAL=2 
DO AGEAL2 
ELSEIF 0PMENUAL=3 
LOOP 
END IF 

CASE 0PMAN=3 
DC AGEPA 
CASE 0PMAN=4 
DO AGERE1 
CASE 0PMAN=5 
EXIT 
ENDCASE 
ENDDO 



1.4 - EMITE LISTAGENS DO ARQUIVO - E este m6dulo 
que vai fornecer ao usu&rio as informa<?6es gerais da sua 
agenda. Nele estSo disponlveis as opqoes de LISTAGEM 
INTEGRAL DO ARQUIVO, LISTAGEM PARCIAL POR 
NOME e LISTAGEM PARCIAL POR TELEFONE. Na pri- 
meira o programa lista a agenda inteira sem restripoes. J£ 
na segunda ele pede uma "chave" de procure que nada 
mais 6 do que as iniciais do NOME que voce gostaria de 
listar. Na teceira, o programa pede um prefixo ou mesmo 
um telefone desejado para listar. Isto quer dizer que se o 
usu£rio digitar "Oil 299" serSo impressos os registros com 
"Oil 299 1765" e "Oil 299 0101", por exemplo. No final de 
todas as listagens 6 impresso o numero de registros listados. 

Em todas as listagens s3o impressos o NOME, a ES- 
PECIFICACAO, o TELEFONE e o possivel FAX. 
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1 □ AMAZONIA 




adventure texto 


12.480,00 1 



1(17 



Informdtica e Editors Ltda 



□ SERRA PELADA 

adventure texto 12.480,00 1 



Langamento especial: 

□ ANGRA-I H 

adventure grifico 19.950,00 MSPC Listagens - coletanea dos melhores programas publicados 

na revista MICRO S/STEMAS, da ediqdo 97 at# a edigSo 106. 
Ao todo s3o 16 programas, gravados em 3 discos. Cada pro- 
grama ocupa um diretdrio. Sdio eles: 

□ GUERRA NO GOLFO Gerenciador de arquivos MS 97 

jogo de estrat$gia ; 12.480,00 ^ :,cul ° & Merenqa entre datas MS 99 

Cadastro de funcionarios MS 100 

Pequenos utiiitarios MS 103 

Ponha uma virqula no tedado MS 103 

Memoria a vista MS 103 

□ PRO KIT topline Uma Splice A IS 104 

editor de fontes ASM .. 24.800,00 & um feedback ao tedado MS 104 

Como renomear diretdrios MS 104 

Uma entrada de dados MS 104 

Do video p/impressora MS 104 

Do dipper p/o Cobol MS 105 

□ PRO KIT compac Serenata MS 105 

compactador 22.200,00 Numeros randdmicos . MS 105 

Prog tempo certo .. MS 106 
Diario do micro . MS 106 

O Crf 5.980,00 




PROGRAMAS PARA MSX 



s»» Pw 

□ □ GRAPHOS III * editor grifico CrS 

□ □ GRAPHOS PRO - ed. grtf. prof, .... CrS 

□ □ MODULO TELAS * editor de telas .. CrS 

□ □ MODULO UETRAS - letras/shapes .. CrS 

□ □ MODULO PRINTER -tabelas/impres. CrS 

□ □ Aifabetos 1 • banco de letras CrS 

□ □ Telas 1 - banco de telas CrS 

□ □ Shapes 1 - banco de figures CrS 

□ □ Pacote 1 - figures, tabelas, aifabetos CrS 

□ PRO KIT zapper - editor de discos CrS 

D PRO KIT scanner • capturador de figures CrS 
C PRO KIT files- gerenciador de discos... CrS 

□ PRO KIT rot-ll - utilitto p/m6dulos CrS 

□ PRO KIT format - formatador especial .. CrS 
2 PRO KIT topview - editor de animapdes CrS 




19.500.00 

38.974.00 

24.245.00 

24.245.00 

24.245.00 

4.485.00 

4.435.00 

4.485.00 

4.485.00 

21.450,00 

21.450,00 

21.450,00 

21.450,00 

21.450,00 

21.450,00 




EDITOR 3.4 • editor de adventures CrS 24.440,00 

I AMAZONIA - adventure texto CrS 12.480,00 

I SERRA PELADA - adventure texto CrS 12.480,00 

I Digital BOOK 1 - 0 livro eletrdnico CrS 11.800,00 



ATENQAO: Os programas da s£rie PRO KIT e os adventures s3o com- 
pativeis com 0 padrSo MSX de acesso ao drive por portas (interfaces 
Mjcrosot, TPX, DMX e Expand). Est3o fora desse padrdo e portanto 
nao funcionarSo perfeitamente nas seguintes interfaces: DDX 2.0, 
SHARP, LEOPARD e EXPERT DDPLUS. 



COMO FAZER SEU PEDIDO: 

Marque os programas que 
deseja receber em sua casa e preencha o 
cupom abaixo de forma leglvel. Anexe um 
cheque nominal it PRO KIT Informdtica 
e Editora Ltda , no valor total do pedido. 
Cep 24120 , Niterdi - RJ. Seu pedido sera 



ATENQAO 

Os programas da PRO KIT para 
PC s3o compatfveis com mi- 
cros XT / AT, 512 Kbytes 
(mfnimo) de RAM, placa gri- 
fica CGA e monitor monocro- 
matico. 



e remeta para a Caixa Postal 108.046 , 
prontamente atendido. 



Nome: 



Enderego: 

Cidade: 

Cep: 



UF: 



Cheque n°: 



Valor CrS 




1.5 - RETORNA AO MENU PRINCIPAL - Retorna ao menu 
principal. 



2. EDITOR DE TEXTOS - Acessa o editor de textos do pro- 
grama. Este editor e destinado para textos em ASCII. 0 
menu de opcoes do editor contem: 



Structure For database: C : AGENDANAGENDA . db-F 
Number of data records-. 119 

Date of last update . 06/20/91 



Field 


Field Name 


Type 


Width 


i 


NOME 


Char ac ter 


15 


2 


ESPECIF 


Character 


35 


3 


TELEF 


Character 


12 


4 


FAX 


Charac ter 


12 


** Total ** 




75 



Estrutura do arquivo AGENDA. DBF 

2.1 - P/ EDITOR - Tassa para a tela de edicao que e o editor 
de textos propriamente dito. 

2.2 - LER ARQUIVO - Carrega um arquivo do disco na me- 
moria do editor, lembrando que o que estiver na memoria 
sera apagado. 

2.3 - GRAVAR ARQUIVO - Grava o conteuao atual da me- 
moria em um arquivo do disco. 

2.4 - SOMAR - Adiciona ao conteudo atual da memoria 
o conteudo de um arquivo em disco. 

2.5 - LI M PAR - Limpa a memoria atual do editor. 

2.6 - DIRETORIO - Exibe o diretorio do disco. 

2.7 - RETORNA - Retorna ao menu principal. 

3. CALENDARIO - Acessa o modulo de calend£rio do 
AGENDA. E bom lembrar que este modulo nao imprimis 
calendcirios, na impressora, de um determinado mes ou ano. 
E uma simples consulta de datas na tela. 

3.1 - DIFERENCA ENTRE DATAS - Voce digita uma data 
inicial e uma data final. 0 programa Ihe retorna a diferenca 
em dias que existe entre essas datas. Exemplo: 02/10/91 
e 23/10/91 retorna 21. 



AGDTM v2 J - HJW BITS mi 



- WWW Alim RKISIMS - 

0 ARQUIVO 1DI 27 HKIS1MS. KCISTM ATUAL: 23 



(11WW: VICDffl HORDC 

(2IRFICIFI CACAO: COUWWWA IE HICW-SISTWAS 

minima: in 112 6 am mmy: 111 112 M 6 i 



P m FRENI E 



PAM IRAS PftOQJRA ALTERA RETORNA 



KMACffl: 



Will 0 P0NIIIR0 00 AROUIUO UN RKISTRO PARA ERJNTE 



Alteracao pro registros 



• Modulo: AGEPROC.PRG 



— ABEPRQC . PSG 
1 AGENDA v2.0 - AGENDA TELEFONICA 
t BURN BITS INFORMAT ICA 
1 ARQUIVO DE PROCEDURES 

I 

PROCEDURE MOLDURA 
PARAMETER TITULG 



CLEAR 

SET COLOR TO B/W 
§ 0,0 TO 24.79 
SET COLOR TO W* 

8 1,2 SAY SPACE i 23 H' AGENDA v2.0 - B 
URN BITS 1991 ' +SPACEf 24 ) 

8 4.2 SAY SPACE ( 3S- TEN (TITULO 1/2) ! +T I TULG+SPACE ( 38-J LE 
N(TITUL0)/2i) 

SET COLOR TO 
8 2.2 TO 20.77 
8 3.3 TO 5.76 
8 20.3 SAY MENSAGEM: 

8 21,2 TO 23.77 
RETURN 

PROCEDURE CENTRO 
PARAMETERS LINHA,nENSA 
8 22.3 SAY SPACEi 73) 

X=LENi KENSA ) 

SEJ COLOR TO W+ 

8 LINHA, 39-0/2) SAY MEN3A 
SET COLOR TO 
RETURN 

PROCEDURE VERIFICA 

IF .NOT. FILE!' AGENDA .NTX'i 
CLEAR 

SET COLOR TO W+ 

§ 23,1 SAY ‘ CRI ANDO INDICE 
SET COLOR TO 
USE AGENDA 
IF DOSERROROOO 
CLEAR 

SET COLOR TO N+ 

-? 'ERRO NA CONFIGURACAO DO SISTEMA' FAVOR VERIFIC 
AR ARQUIVOS DE DADOS.' 

SET COLOR TO 
QUIT 
ENDIF 

INDEX ON NOME TO AGENDA 
USE 
ENDIF 
RETURN 

PROCEDURE MOSTRA 
SET COLOR TO W+ 

8 10,12 SAY '[UNDUE: 

,8 12.12 SAY ' [2jESPECIFICACA0*. 

8 14,12 SAY ' [33TELEFONE: ' 

8 14.40 SAY’ ' [4]FAXs' 

SET COLOR TO 
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SOLAR INFORMATICA 
SOFTWARES & HADWARES 



PC XT/AT 
MSX 
1 / 2 / 2 + 



CX. POSTAL 11743 
CEP. 05090 - SAO PAULO - SP 
FONE (Oil) 833-9355 



688 ATTACK SUB II 
ALTERED BEAST 
actFRIY 

BAAL (VIDEO EGA/VGA) 
BALLISTIX 

BATTLE HAWKS 1942 
BATTLE OF BRITAIN 
CABAL 

CALL OF ARMS 
CAPITAN TRUENO 
CARMEM SAN DIEGO WORLD 
CARMEM SAN DIEGO EUROPE 
CARMEM SAN DIEGO TIME 
CASTLEVANIA 

CENTURION (VIDEO EGA/VGA) 
CHARLIE CHAPLIN 
CODENAME: ICE MAN 
COMBAT COURSE 
CONQUEST OF CAMELOT 
CONTRA 

CRIME WAVE (VIDEO EGA/VGA) 
DARK CASTLE 

DAVID WOLF SECRET AGENT 
DAYS OF THUNDER 
DONI GO ALONE 
DRAGON STRICK 
DRAGON SLAIERS I 
EARL WEAVER BASEBAL 
ELITE 
EXOLON 

EYE OF THE BEHOLDER 
F 15 STRICK EAGLE I 
F 15 STRICK EAGLE II 
F 16 COMBAT PILOT 
F 19 STEALTH FIGHT 
FACE OFF HOCKEY 
FACES 

FIRE POWER 

FREEDY HARDEST 

FUTURE WARS 

GAMES WINDOWS 3.0 

GAUNTLET I 

GAUNTLET II 

GHOST BUSTERS II 

GOLD RUSH 

GOLDEN AXE 

GP CIRCUIT - DISK CGA 

GP CIRCUIT • DISK EGA 

GRAVE YEARDAGE 

GROVER ANIMAL ADVENTURE 



JOGOS PC XT/AT 



( 2 ) 

( 2 ) 

( 2 ) 

(3) 
( 1 ) 
( 2 ) 

(4) 
( 2 ) 
( 1 ) 
( 1 ) 

111 

(3) 

( 2 ) 

(3) 

( 1 ) 

(9) 

( 1 ) 

( 10 ) 

( 1 ) 

( 8 ) 

8 

(3) 
( 2 ) 

(4) 
(13) 

( 1 ) 

( 1 ) 

( 2 ) 

(5) 
(1) 

81 

(3) 

( 2 ) 

( 1 ) 

( 2 ) 

(1) 

(3) 

(1) 

( 1 ) 

( 2 ) 

81 

( 2 ) 

( 1 ) 

(1) 

( 2 ) 

(1) 



HARLEY DAVIDSON 


(2) 


HEAVY METAL 


(1) 


HEROES OF THE LANCE 
HEROES QUEST 1 


A 


HILLS FAIR 


(2) 


HOSTAGES 


(1) 


IF IT MOVES SHOOT IT 


(3) 


IMPOSSIBLE MISSION II 


(1) 


INDIANA JONES IN TEMPLE 


(1) 


INDIANA JONES CRUZADE ACAO 


(2) 


INDIANA JONES CRUZADE ADV 


(6) 


INDY 500 MILES 


(2) 


JOE MONTANA FOOTBALL 


(5) 


KING QUEST II AO IV 


<8 

(2) 


LAKERS X CELTICS 
LAST NINJA 1 


LAST NINJA II 


(2) 


LEISURE LARRY 1 AO III 


(16) 


LHX ATTACK CHOPPER 


(2) 


LIFE & DEATH 1 


(2) 


LODE RUNNER 


(1) 


LOW BLOW BOXXING 


(3) 


MAD MIX 


(1) 


MANIAC MANSION ATUALIZADO 


(2) 

(2) 


MENACE (VIDEO EGAJVGA) 


MICKEY MOUSE 


(2) 


MISTERY MASTER 


(1) 


NIGHT SHIFT (VIDEO EGA/VGA) 


(4) 


NUCLEAR WAR 


(2) 


OLIVER AND COMPANY 


(2) 


OVERLORD (VIDEO EGA/VGA) 


(5) 


PRINCE OF PERSIA 


(2) 


RASTAN SAGAN 


(2) 


RENEGADE 


(1) 


RISK OF WAR 


(2) 

81 


ROAD RUNNER (PAPA LEGUAS) 
SENTINELS WORLDS FUTURE 


SIMBA AND THRONE OF FALCON 


(2) 


SPACE QUEST 1 AO II 


(ID 


SPACE ROGUE 


(2) 


STAR DEFENSER (VIDEO EGA/VGA) 


(1) 


STAR GOOSE 


(1) 


STAR MOVIK 


(3) 


STAR TRECK INTERPRISE 


'1) 


STAR TRECK V (VIDEO EGA/VGA) 


(5) 


STELAR 7 


(2) 

( 2 ) 


STELL TUNDER 


STREET FIGHTG MAN 


(3) 



STREET ROD 1 


(3) 


STREET ROD II 


(4) 


STRINER 


(1) 


STUNT DRIVER 


(4) 


STUNTS 


(4) 


SUPER HANG ON 


(1) 


TAKE DOWN 


(3) 

111 


TEENAGE MUTANT TURTLES NINJA 1 
TEST DRIVE 1 


TEST DRIVE II 


(2) 


TEST DRIVE II (VIDEO EGA/VGA) 


(3) 


THE ANCIET OF WAR IN SEA 


(1) 


THE BOOK OF MOEBIU 


(2) 


THEXDER 1 


(1) 


THEXDER II 


(3) 


TITANIC 


(2) 


TRACON II 


(3) 


TUNNELS OF ARMAGEDON 


(2) 

(5) 


ULTIMA V 


VIAGEM AO CENTRO DA TERRA 


(2) 


WEIRD DREAMS 


(2) 


WOROFFS PINBALL(VIDEO EGA/VGA) 


(1) 


XADREZ PARA WINDOWS 


(1) 


XENON II 


(3) 


ZAC MAC KRAKEN 


(2) 


ETC ... 



JOGOS 1.2 HD 




HEART OF CHINA 


(8) 


JONE IN THE FAST LANE 


(1) 


SPACE QUEST IV 


(6) 


WING COMMANDER 1 


(3) 


BREVE: WING COMMANDER II, PRINCE OF PERSIA II. 
MOON WALKER. GP MONACO. ETC. 



ATENCAO — OS NUMEROS ENTRE PARENTE- 
SES INDICAM QUANTOS DISCOS CADA JOGO 
OCUPA, PARA OBTE^R 0 VALOR MULTIPLIQUE 
0 MESMO PELO NUMERO DE DISCOS. 



APLICATIVOS DOMINIO PUBLICO 



AGENDA PESSOAL (1) AGENDA DE TELEFONES E COMPRO- 
MISSOS EM PORTUGUES ATLAS PC (1) MAPA E INFORMA- 
?OES DOS CONTINENTES E SEUS PAISES COPY II PC V7.0 
(1) COPIADOR DE DISCOS CURSO WS 2000 (1) APRENDA 
TODAS AS FUNQOES BASICAS DESTE EDITOR DE TEXTOS 



DELL TEST (1) TESTE DE MICRO E SEUS PERIF£RICOS LO- 
TUS TUTOR (1) ENSINA TODOS OS COMANDOS DO LOTUS 
1. 2. 3 MONOGRAFIX (1) EDITOR DE TEXTOS PC KEIDRAW 
(5) OTIMO EDITOR DE GRAFICOS COM MUITOS RECURSOS 

TEMOS MUITOS OUTROS TITULOS. 



MSX CENTER 

• JOGOS & APLICATIVOS PARA MSX 1, MSX 2. MSX 2 PLUS. 

• ULTIMOS LANQAMENTOS DO JAPAO E EUROPA. 

• REVENDA ANGEISA , A.C.V.&- TRANSFORMAC0ES EM MI- 
CROS MSX 2.0+ , DRIVES 5 1/4 E 3 1/2 360 K OU 720 K. 

• DIVERSOS— MEGA RAM 256K. MODEM, INTERFACE DRI- 
VE, FORMULARIOS, ETIQUETAS, ETC. 

• EXPERT BOOK PLUS— LIVRO COM DICAS IMEDIATAS DE JO- 
GOS MSX 1/2/2 PLUS. 

SOLICITS CATALOGO. ESPECIFIQUE MICRO 



CATALOGO ELETRONICO PC XT/AT 

2 DISQUETES CONTENDO TODA A NOSSA RELACAO DE JOGOS E APLICATIVOS 
POR CATEGORIA E COM DESCRICAO, RELACAO DE MANUAIS E SENHAS QUE DIS- 
POMOS, EQUIPAMENTOS E SUPRIMENTOS QUE COMERCIALIZAMOS, E AINDA 
0 JORNAL HOTLINE — PC NEWS ONDE VOCE ENCONTRA AS MAIS INCRfVEIS 
DICAS DE JOGOS, INFORMACOES SOBRE O MERCADO, PROGRAMAS E MUITO 
MAIS. TUDO ISSO NA TELA DO SEU MICRO. 

TAXA DE ENVIO: REFERENTE A DISCOS E DESPESAS: CrS 1.700,00 OU SE PRE- 
FERS TRAGA 2 (DOIS) DISCOS EM NOSSA LOJA E SERA GRATUITO. 
EQUIPAMENTO NECESSARIO: 2 DRIVES OU WINCHESTER, VIDEO CGA, E IM- 
PRESSORA (OPCIONAL) PARA IMPRESSAO DE LISTA E PEDIDOS. TEMOS TAM- 
BEM CATALOGO GRATIS. 

VALIDADE NOVEMBRO-DEZEMBRO/91. (RECORTE OU TIRE XEROX E ENVIE) 

NOME: 

END. 

CIDADE: 



ATENDEMOS PELO SEDEX A COBRAR— FAQA SEU PEDIDO 
POR CARTA OU TELEFONE, E RECEBA E PAGUE NO COR- 
REIO MAIS PERTO DE SUA CASA. 



ESTADO: 

CER: 

PROFISSAO: 

EQUIPAMENTO:. 





I 10.21 SAY NOME 
§ 12.30 SAY ESPEC1F 
« 14.25 SAY TELEF 
§ 14,48 SAY FAI 
RETURN 

PROCEDURE CABECA 
PARAMETER DEB 
IF OPSAI«T 
? CHR ( 27 ) ♦' E ' 

?? SPACE( 16) ♦ ' t I » BURN BITS INFCRHATICA I 

i r 

? SPACE (23)+ AGENDA v2.0 - AGENDA TELEFONICA' 

? SPACE ( 3S-( LEN ( DEB ) / 2 ) ) +DEB 
11 CHR ( 27 ) ▼ ' F ' 

ELSE 

1 SPACE! 16)+' I I * BURN BITS INFORNATICA I 

I I 

? SPACE (23)+' AGENDA v2.0 - AGENDA TELEFONICA' 

? SPACE(3<HLEN(DEB)/2))+DEB 
END IF 

PNUNE=PNUNE+1 

RETURN 

PROCEDURE SINAL 
SET COLOR TO N+/R 
I 11,26 TO 13,52 

« 12,27 SAY 'REGISTRO NAO ENCONTRADO !' 

SET COLOR TO 
INKEYI3) 

RETURN 

PROCEDURE NEXISTE 
SET COLOR TO H/R 
e 11,26 TO 13.51 

« 12,27 SAY ARQUIVO NAO ENCONTRADO !' 

SET COLOR TO 
IHKEY (3) 

RETURN 

PROCEDURE AVIALTE 

DO CENTRO WITH 22,’TECLE [ENTER] ALTERAR, [P] PARA PRCCURA 
R POR NONE, [ESC] PARA SAIR' 

RETURN 



3.2 - SOMA DE DIAS EM UMA DATA - Voce digits uma 
data desejada e um certo numero de dias a seradicionado 
a esta data. 0 programs retorna a data vigente e ad t6r- 
mino dos dias digitados. 

3.3 - SUBTRAI DIAS DE UMA DATA - Digita-se uma data 
e um certo numero de dias a serem subtraidos desta data. 
E retornado a data vigente a "X" dias atrSs. 

3.4 - DIA DA SEMANA - Retorna o dia da semana de uma 
data qualquer digitada. 

3.5 - RETORNA - Retorna ao menu principal. 

4. CONFIGURA AMBIENTE - Acessa o mddulo para con- 
figurates de ambiente de trabalho. Nota: a) todas as 
opgoes de configurag3o possuem uma pequena explicagao 
antes de confirmar asmudangas; b) as mudangas efetua- 
das s3o apenas temporSrias (enquanto o programs estiver 



na memdria). Caso queira modificd-las permanentemente, 
deve-se alterar o cddigo fonte. 

4.1 - CAMPAINHA ON/OFF - Escolhe se a campainha do 
Clipper serci tocada toda vez que um campo de digitagao 
for preenchido. 0 default 6 OFF. 



4.2 - MOSTRA (INSERT) - Deixa & mostra ou n§o a pa- 
lavra (INSERT) no canto direito superior da tela, quando 
esta fungao estiver ativa. 0 default 6 n§o mostrar. 



■ 
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Editor de textos ASCII 

4.3 - NUMERO DE COLUNAS DO EDITOR - Modifies o 
numero de colunas que o editor de textos vai trabalhar e 
tabulas as linhas. 

4.4 - ESCOLHE FILTRO DO ARQUIVO - Esta opgSo torna 
o programs flexivel o suficiente para efetuar qualquer tipo 
de procura e escolha de registros. 0 usudrio escolhe uma 
palavra ou parte de uma palavra desejada para constar den- 
tro do campo ESPECIFICAQAO. Se esta condigSo existir 
em algum registro do arquivo, o Clipper filtra o arquivo de 
dados de modo que apenas constem regsitros que aten- 
dam a tal condigao. 

Por exemplo, escolher a palavra "CONSTRUTORA" 
como filtro farci com que nas listagens gerais, alteragoes, 
etc s6 aparegam registros que tenham esta palavra no 
campo ESPECIFICACAO. Isto multiplica por dois a capa- 
cidade de triagem do programs. 

4.5 - RETORNA AO MENU PRINCIPAL - Retorna ao menu 
principal. 



• Modulo: AGEIN.PRG 



t AGENDA v2.0 - AGENDA TELEFONICA 
I BURN BITS INFORHATICA 
» MODULO INSERE 

t 

DO WHILE .T. 

DO MOLDURA WITH MODULO INSERE REGISTROS 
DO CENTRO WITH 22,'INSIRA OS DADC3 CORRETAMENTE - CCNFI 
RNE GPERACAD ' 

« 6,13 TO 16,66 
N0=SPACE(15) 
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E3=SPACEi35i 

TE=3PfiCEI12) 

FA=SPfiCE(i2) 

SESP«T 

COST’S' 

8 5,15 SAY NOME:' GET NO 

* 10,15 SAY 'ESPECIF1 CACAO:' SET ES 
i 12,15 SAY TELEFQNE: ‘ GET TE 

8 14,15 SAY FAX: ' GET FA 

SET CURSOR GN 

READ 

SET CURSOR OFF 
NO=UPPER ( NO ) 

E5=UPPER(ES) 

IF LASTKEY ( ) =27 
EXIT 
END IF 

IF NG=SPACEil5) 

? CHRI7I 
COOP 
EMCIF 

IF FA=SPACE( 12) 

FA*' ' 

END IF 

DO CENTRO WITH 22. '[I] INSERE REBISTRO - [C] CORRIGE DA 
DOS - [A] ANULA INSERCAO' 

§ 17,18 TO 19.42 

I 18.20 SAY ' (I)NSERE, (CiORRIGE OU (A)NULA (I/C/A):' 3 
ET RESF PICTURE '’' 

SET CURSOR ON 
READ 

SET CURSGR OFF 
IF RESP='C 
LOOP 
END IF 

IF RESF='A' 

EXIT 
END IF 

IF RESF- T 
APPEND BLANK 
REPLACE NOME WITH NO 
REPLACE E3PECIF WITH ES 
REPLACE TELEF WITH TE 
REPLACE FAX WITH FA 
ENDIF 

00 CENTRO WITH 22, '*S] CQN7INU6 INSERINDG - [N] RETGRNA 
AQ MENU PRINCIPAL' 

8 20.25 ~C 22.51 

* 21,27 SAY 'QUER CCNTINUAfi (S /H)i GET C05N PICTURE '! 

SET CURSOR ON 
READ 

SET CURSOR OFF 
IF C0SN='3' 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDDl 



5. UTILITARIOS - Acessa o modulo de utilitarios do sis- 
tema, onde voce encontar£ as opcoes de EXIBIR 
DIRETORIOS, COMANDO DO DOS, DELETAR ARQUI- 
VOS, RENOMAEAR ARQUIVOS, FORMATAR DISCO E 
RETORNA, lembrando que para a opcao FORMATAR 
DISCO funcionar e necessario que o atquivo FORMAT.COM 
do DOS esteja no diretorio corrente. 

6 . FIM DE PROCESSAMENTO - Fim do programa. O con- 
trole volta para o PROMPT do DOS. 

INSTALAX^AO 

A instalagao do programa e bem simples, e a primeira 
coisa a fazer 6 criar a estrutura do arquivo AGENDA. DBF. 
Sua listagem segue anexa ao codigo-fonte. O arquivo de 
indice AGENDA. NDX e criado automatimente pelo pro- 
grama toda vez que nao se encontrar no diretorio corrente. 

NOTA: EXEMPLO DE COMPILACAO E LINK-EDICAO 

CLIPPER AGENDA/HELP 
CLIPPER AGENDA/AGENDA 
TLINK 

AGENDA* HELP,AGENDA/AGENDA„CLIPPER + EXTEND 



VICENTE JOSE MOREDO cursa Andlise de Sistsmas na Uni- 
versidade Peulista - UNIR Possui um PC XT e programa am Clip- 
per. dBase III, Pascal e Basic. 



• Modulo: AGEDATA.PRG 

t AGENDA vl.0 - AGENDA TELEFONICA 
I BURN BITS INFORMAT ICA 
I MODULO CALENDAR I C 

I 

CPDATA=1 
DO WHILE .T. 

GO MCLDURA WITH - MODULO CALENDAR I 3 -' 

8 8.27 PROMPT DIFERENCA ENTRE DATAS' MESSAGE ROSTRA A 
DIFERENCA EM DIAS DE DUAS DATAS Cl GIT ADAS 
8 10,27 PROMPT 'SOMA DE DIAS EM DMA DATA' MESSAGE 'ABIC 
IONA n DIAS A UMA DATA E RETORNA A DATA RESULTANTE 

8 12.27 PROMPT 'SUBTRAI DIAS DC UMA DATA' MESSAGE SUBT 
SAI n DIAS DE UMA LATA E RE'ORNA A DATA. RESULTANTS’ 

8 1 

4,27 PROMPT D I A DA SEN ANA' MESSAGE 'RETORNA 0 DIA DA SEMA 
NA QUE CAiP.fi EM UMA DATA DADA 
8 14,27 PROMPT RETORNA 
AQ MENU PRINCIPAL' MESS 
AGE 'RETORNA AG MENU PRINCIPAL 
MENU TO OPOATA 
CO CASE 
CASE 0 P DATA=1 
Di=DATEi ) 

D2=DATE(j 

8 7.23 CLEAR TO 17.51 

DO CENTRO WITH 22. DIGUE AS DATAS CESEJADAS PARA CA 
LCULAfi A DIFERENCA-' 

8 10.25 TO 14,50 

8 11,27 SAY DATA IMICIAL* * SET Cl 
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* 13,27 SAY DATA FINAL: ' SET 02 
SET CURSOR ON 

READ 

§ 15.23 TO 17,53 

8 IS. 25 SAY 'DIFERENCA: * *STR(02-DU + ‘ DIAISi ' 

DO CENTRO WITH 22,'TECLE ALSO PARA CONTINUAR . . 
INKEY(IOO) 

SET CURSOR OFF 
CASE 0PDATA=2 
D1=DATE( ) 

N1=0 

8 7,23 CLEAR TO 17,51 

DO CENTRO WITH 22, 'DIBITE A DATA DESEJADA PARA SER S 
GMADA COfl OS DIAS' 

8 10,25 TO 14,51 

8 11.27 SAY DATA DESEJADA: ' SET D1 
8 13,27 SAY 'No. DE DIAS:' SET Ni PICTURE '99999 
SET CURSOR ON 
READ 

8 15,23 TO 17,53 

I 16,25 SAY DATA RESULTANTS: ' +DTOC ( Dl+Nl ) 

DO CENTRO WITH 22,'TECLE ALSO PARA CONTINUAR . . 
INKEY (100) 

SET CURSOR OFF 
CASE 0PDATA=3 
D1=DATE( ) 

N1=0 

8 7.23 CLEAR TO 17,51 

DO CENTRO WITH 22,' DIGITS A DATA DESEJADA PARA SER S 
UETRAIDA DOS DIAS' 

8 10.25 TO 14,51 

I 11,27 SAY 'DATA DESEJADA:' BET D1 
I 13.27 SAY No. DE DIAS:' SET Nl PICTURE '99999 
SET CURSOR GN 
READ 

8 15.23 TO 17,53 

* 16,25 SAY 'DATA RESULTANTE: '+DT0CSD1-N1 j 
DO CENTRO WITH 22,'TECLE ALSO PARA CONTINUAR 
INKEY(iOO) 

SET CURSOR OFF 
CASE OFDATAM 
D1=DATE( ) 

8 7,23 CLEAR TO 17,51 

DO CENTRO WITH 22, DI6ITE A DATA DESEJADA PARA RETOR 
NAR 0 DIA DA SEN ANA’ 

8 10,25 TO 12,51 

8 11,27 SAY DATA DESEJADA:' SET D1 

SET CURSOR ON 

READ 

D2=CD0W( D1 ) 

IF D2=' Sunday' 

D2= " D0HIN6C ' 

ELSE IF D2='Honday ' 

D2='SE6UNDA-FEIRA' 

ELSEIF D2 1 ' Tuesday' 

D2= ' TERCA-FEIRA ’ 

ELSEIF D2='Nednesday' 

D2= ' QUART A-FE I RA ' 

ELSEIF D2=' Thursday’ 



32* QUINT A-FE IRA' 

ELSEIF D2=' Fridav' 

D2= SEXTA-FEIRA' 

ELSEIF D2=' Saturday' 

D2 : 5AEAD0 
END IF 

8 15.23 TO 17,55 

8 16.25 SAY 'DIA DA SEMANA: '+D2 

SO CENTRO WITH 22,'TECLE ALSO PARA CONTINUAR . . 

INKEY (100) 

SET CURSOR OF? 

CASE 0PDATA=5 
EXIT 
ENDCASE 
ENDDC 



• Modulo: AGECONF.PRG 

t ASENDA v2.0 - AGENDA TELEFONICA 
I BURN BITS INFGRHATICA 
t NODULO CGNFISURA AN8IENTE 

I 

DO WHILE ,T. 

0PC0NF=1 

DO HOLDURA WITH MODULO DE CONFIGURACAO DE AMBIENTE - 

8 8,23 PROMPT 'CAMPAINHA CN/OFF MESSAGE ' AT I VA/DESATIV 
A CAMPAINHA DE AVISO' 

S 10,23 PROMPT MCSTRA (INSERT/' MESSAGE LIGA/DESLISA 
MOSTRADOR DE ESTADO DO TECLADO' 

8 12,23 PROMPT 'NUMERO DE C0LUNA3 DO EDITOR MESSAGE 'E 
SCOLHE 0 NUMERO DE COLUNAS POR LINHA QUE 0 EDITOR UTILIZAR 
A'* 

8 14,23 PROMPT ESCGLHE FILTRC DO ARQUIVO' MESSAGE * 
SELECT CNA FILTRO DE ARQUIVO PARA PESQUI3AS' 

§ 16,23 PROMPT 'RETORNA AO MENU PRINCIPAL' MESSAGE RE 
TORNA AO MENU PRINCIPAL' 

MENU TO CPCONF 
IF OPC0NF=1 
CAMPOF=N' 

8 9,20 CLEAR TO 16.60 

DO CENTRO WITH 22. [S] PARA LIGAR CAMPAINHA - IN] FA 
RA DESLIGAR 

8 9,15 SAY 'ESTA OPCAO DEI I A ATIVA. OU NAO, A CAMPAI 
NHA PADRAO' 

8 10,15 SAY DO CLIPPER. SE ESTA ESTIVER LIGADA. 

UM 'BEEP*' 

8 11,15 SAY 'SERA OUVIDO PELO CPERADOR TODA VEZ QU 
E ELE PREN- * 

8 12,15 SAY 'CHER TOTALMENTE UM CAMPO DE EDICAO OU E 
SCOLHA. 

8 16,28 TG 18,43 

8 17,30 SAY 'LI6AIS/N):' GET CAMPOF PICTURE '!' 

SET CURSOR ON 
READ 

SET CURSOR OFF 
IF CAMPOF = ' S' 

SET BELL ON 
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.flatu&d- 



A TEH inFMIlATICA TEM UMA 
GRANDE NOYIDADE PARA YOCE! 



Tendo sido desenvolvido de modo a com- 
petir no sofisticado mercado internatio- 
nal de Sistemas Operacionais para micro - 
computadores de 32 bits, o Sistenia Vir- 
tuOS 386 foi projetado para o aproveita 
mento integral da arquitetura interna e do 
poder de processamento dos microproces- 
sadores INTEL 80386 e 80486, trazendo 
ao cenario das aplicagOes profissionais a 
efetiva utilizagao dos conceitos “multiu- 
suario”, “multitarefa” e de “maquinas 
virtuais”. 




na verdade, um sistema operacional com- 
pleto, capaz de gerenciar multiplos usu&- 
rios e aplicagdes concorrentes. 

Para comegar, o Sistenia VirtuOS 386 
permite a formag£o de “clusters” multiu- 
suarios atraves da conexao de "estates 
de trabalho” n2o inteligentes a um unico 
equipamento PC-AT 386/486. A partir 
dai, de acordo com o crescimento das ne- 
cessidades de cada empresa, novos 4 ‘clus- 
ters” podem ser formados e interconecta- 
dos atraves de esquemas traditional de 



0 Sistenia V irtuOS 386 pode ser classificado como sendo total- 
mente compativel com o MS-DOS™, permitindo uma migragSo 
livre de traumas a partir de sistemas ja instalados, ou uma rapida 
entrada em operagilo de um sistema absolutamente novo. Ele e, 



Rede Local e/ou Remota. Todos os elementos que permitem a 
formagao dessa Rede de “clusters”, estao integrados e s£o facil- 
mente acessiveis no modulo “VirtuOS Network Facility” 
(VNet). 



O ENDERECO CERTO PARA OUEM PROCURA 
BOM PRECO E OTIMO ATENDIMENTO 



ENTREGAMOS EM QUALQUER 
LUGAR DO BRASIL! 



LEASING DIRETO DA FABRICA: 
PC XT e AT em 6/12/15 MESES 



TEH mMlfiTlCfi Revenda Autorizada ^3861 

Av. Pasteur, 184 Loja K — CEP 20291 — Rio de Janeiro — RJ — Tels.: (021) 541-2795 e 295-6690 




ELSE 

SET BELL OFF 
END IF 
ENDIF 

IF QFCQNF =2 
ATIVOF= ' N 

a 3,20 CLEAR TO 14.60 

DG CENTRO KITH 22. [S] PARA AT I VAR MOSTRADOR - [N] P 
ARA BE5ATIVAR' 

i 9,15 SAY 'ESTA OPCAG ATIVA, OU NAG, GS MCSTRAD0RE5 
DE ESTADC' 

i 10,15 SAY DO TECLACG DO CONSOLE. SE ESTIVER LIG 
ADA, AS PA- 

§ 11,15 SAY LAVRAS [Canai, [Ins] e [Nu*] APARECERAO 
NA PRIME I - ' 

8 12,15 SAY RA LINHA DA TELA SilANDO FOREM ATiVADAS 
PELO OPERA-' 

8 13,15 SAY DOR. 

8 16,23 TO 13.4A 

? 17,30 SAY 1 ATIVAIS/N) : ' GET ATIVOF PICTURE '! 

SET CURSOR ON- 
READ 

SET CURSGR OFF 
IF AT IVOF= ' 5' 

SET SCORE ON 
ELSE 

SET SCORE OFF 
ENDIF 
ENDIF 

IF GPCGNF=3 

« 8,20 CLEAR TO 16,60 

DO CENTRO WITH 22. 'DIGITS 0 NUNERG DE COLUNAS QUE VO 
CE GOSTARIA DE UTILIZAR (40 - 255)' 

§ 11,30 TO 13,50 

§ 12,34 SAY COLUNAS:' GET RCA PICTURE '999' RANGE 4 

0,255 

SET CURSOR ON 
READ 

SET CURSOR OFF 
ENDIF 

If GPC0NF Z 4 

CHESP=CHESP + SPACE ( 35-LENt CHESP 1 ) 

8 6,20 CLEAR TG 16,60 

DO CENTRO WITH 22, DISITE G FILTRO uESEJADG PARA C C 
AMPO ESPECIFICACAG' 

8 11.17 TO 13,62 

§ 12,19 SAY CHAVE: GET CHESP PICTURE ! ! 1 ! 

I I I I I I I I 1 I I ! I I : I I I! I I I ! ' 

SET CURSGR ON 
READ 

SET CURSGR OFF 
CHESP=RTRIK( CHESP) 

IF CHESP=SPACE(35) 

SET FILTER TO 
ELSE 

SET FILTER TO CHESPtESPECIF 
GO TOP 

LOCATE FOR CHESPtESPECIF 
IF ECFii 




• Modulo: AGEUTIL.PRG 



t AGENDA v2.0 - AGENDA TELEFONICA 
» BURN BITS INFORRATICA 
l RGDULC UTiliTARiOS 
GPU=1 

DRIVECA=GETE( CGNSPEC' ) 

DRI VEDA=SUBSTR ( DRiVEDA, 1,2) 

IF DRIVEDA 1 ' A:' 

DRI VEDA=1 
ENDIF 

IF DRIVEDA='B:' 

DRIVEDA=2 

ENDIF 

IF DRiV€DA= ' C: ' 

DRIVEDA=3 

ENDIF 

DO WHILE .T. 

DC ROLDURA WITH MODULO UTILITARIOS DG SI3TERA 
a 7,26 PROMPT ‘EXIMR DtRETCRIOS RESSAGE EXIBE CIRETO 
RIO DO DRIVE ESCOLHIDO' 

§ 9.26 PRORP T 'CORANDO DC DOS' MESSAGE EXECUTA COMANDO 
DO DOS DIRETO DO TECLADO 

# 11.26 PRORPT ‘DELETAR AROUiVOS' MESSAGE 'DELETA ARGUI 
VO ESCOLHIDO PELO USUARIG' 

8 13.26 PROMPT RENOREAR AROUIVOS' MESSAGE 'RENCHEA UM 
ARQUIVu ESCOLHIDO PELO USUARIG' 

8 15.26 PROMPT 'FORHATAR DISCO' MESSAGE 'FSRMATA DISCO 
DE DADOS PARA C SISTEMA 

I 17.26 PROMPT ' RETGRNA AO MENU PRINCIPAL MESSAGE 'RET 
ORNA AG MENU PRINCIPAL DG PRGGRAMA" 

MENU TO OFU 
DG CASE 
CASE OPU=i 
EXIBI=' A' 

8 22.5 SAY SPACE; 65! 

8 22.23 SAY ENTRE G DRIVE PARA EXIBIR : ' GET EXIBI 
VALID (EXIBI* ABCDabcd ) 

SET CURSOR ON 
READ 

SE* CURSOR OFF 
CLEAR 

• 'EXISINDG DIRETORiO DE: +EXIBI 
DIR 4EXIBI:t.t 



32 MICRO SISTEMAS 



PC/XT REDI UNIUERSOFT - FONE (Oil) 825-5240 



RIM CONSELHEIRO BROIERO 589 CJ 42 - CEP 01154 SAO PAULO - SP 



COD I GO NONE 



QTDE DISCO 



PCX. 001 
PCX. 002 

pa . 003 
pa. 004 
pa. 005 
pa. oo€ 
pa . 007 

PCX 008 

pa. 009 
pa. oio 
pa. on 
pa .012 
pa.013 
pa.oi4 
pa. ois 
pa. oh 
pa. oi? 
pa. ois 
pa . 019 
pa. 020 
pa. 021 
pa. 022 
pa. 023 
pa. 024 
Pa. 025 
Pa. 026 
Pa. 027 
Pa. 028 
pa. 029 
pa . 030 
pa. 031 
Pa. 032 
Pa. 033 
Pa. 034 
Pa. 035 
Pa. 036 
Pa. 037 
Pa. 038 
Pa.039 
PCX. 040 

pa. 041 
pa. 042 
pa. 043 
pa. 044 
PCX. 045 
pa. 046 
pa. 047 
pa. 048 
pa.049 
PCX. 050 
PCX. 051 
pa. 052 
pa. 053 
pa. 054 
PCX. 055 
pa. 056 
pa. 057 
pa.058 
pa. 059 
pa . 060 
pa. 06 i 
pa . 062 

pa.063 
pa. 064 
PCX. 065 

pa .066 
pa. 067 
pa .068 
pa.069 
pa. 070 
pa. 071 

Pa.072 
PCX. 073 
pa.074 
pa.075 
pa. 076 
PCX. 077 
pa. 078 
pa. 079 

pa.oso 

PCX. 081 

pa .082 
pa.083 
pa. 084 
pa. 085 

pa . 086 

pa. 087 
pa . 088 
pa.089 
pa. 090 
pa.09i 
PCX. 092 
pa. 093 
pa 094 
PCX. 095 
PCX. 096 
pa.097 
pa. 098 
pa.099 
pa. ioo 



ft Hora do Pesadelo (02) 
After Burner (02) 
Art of Uar (01) 
Robocop 1 (01) 
Off Shore Warriors (01) 
Battle Chess (02) 
Block Out (02) 
Bad Dudes (02) 
The Cycles (02) 
California Games (02) 
Carmen Sandiego (01) 
Death Track (02) 
Telas Porno 1 (01) 
Telas Porno 2 (01) 
Double Dragon 1 (02) 
Double Dragon 2 (01) 
Duro de flatar (02) 
Earl Weaver Baseball (01) 
Falcon Simulator (01) 
Golfe (01) 
Grand Prix (01) 
Indiana Jones 2 (02) 
Indiana Jones 3 (06) 
Leisure Lair (02) 
nach 3 (01) 
Mean 18 - Golfe (01) 
World Cup 90 (02) 
Faces (01) 
Operation Wolf (W) (03) 
Os 3 Patetas (02) 
Out Run (02) 
Tapper (01) 
Winter Games (01) 
Donkey Kong (01) 
Pinball Wizard (01) 
Platoon (01) 
Rampage (01) 
Robocop 2 (W) (04) 
Rocket Ranger (02) 
Lode Runner (01) 
Space Racer (Ol) 
Speed Ball (02) 
Star Goose (01) 
Startrek (01) 
Test Driver 1 (01) 
Test Driver 2 (02) 
Tetris (01) 
The Last Ninja (W) (02) 
Thexder (01) 
Pop Corn (01) 
Goody (01) 
Bushido/Zaxx/Defend (01) 
Tomawank (01) 
Tartarugas Ninjas i (04) 
4x4 Roaa Racing (01) 
688 Attack Submarino (01) 
Tank Killer (04) 
Flight Simulation (01) 
Afncar (Bugs) (01) 
Air Combat (01) 
Airbone Ranger (01) 
ALF, o Eteimoso (01) 
ftrkanoid 2 (01) 
Artie Fox (01) 
Barbarian (01) 
Baseball (01) 
Basket (Jonhoson) (01) 
Battle of Britain (04) 
Battle Tech (02) 
Black Cauldron (02) 
Budokan (02) 
Captain America (02) 
Cassino (01) 
Caveman Hugholimpcs (04) 
Boxxing (01) 
Karate (01) 
Chess Master 2000 (01) 
Comando (01) 
Conquest of Camelot (10) 
Crazy Cars 2 (01) 
Cubik Tic Tac Toe (01) 
Cyrus 2 (Xadrez) (01) 
Death Sword (01) 
Defender Of Crown (01) 
Destroyer (B. Naval) (01) 
Downhill Chal anger (02) 
Duck Tales (02) 
Elite (01) 
Erotic Show (02) 
Evolution (01) 
F-15 Strike Eagle 2 (02) 
F-16 Simulation (02) 
F-19 Simulation (03) 
Face Off (02) 
Fire Power (02) 
Flight Simulation 3 (02) 
Flight Simulation 4 (02) 
Football Americano (01) 
Ford Simulation 1 (01) 
Ford Simulation 2 (02) 



CODIGO NONE 



QTDE DISCO 



pa. 101 
pa. 102 
pa. 103 
pa. 104 

PCX. 105 
PCX. 106 
PCX. 107 
PCX. 108 
PCX. 109 
PCX. 110 
PCX. Ill 
PCX. 112 
PCX. 113 
PCX. 114 

pa. 115 
pa . 116 
pa. 11 ? 
pa. ns 

PCX. 119 
PCX. 120 
PCX. 121 
PCX. 122 
PCX. 123 
Pa. 124 
pa. 125 
pa . 126 

PCX. 127 
PCX. 128 
PCX. 129 
PCX. 130 

pa. 131 
pa. 132 

PCX. 133 

pa. 134 
pa. 135 

PCX. 136 

pa . 137 

PCX. 138 
PCX. 139 
PCX. 140 
PCX. 141 
PCX. 142 
PCX. 143 
PCX. 144 
PCX. 145 
PCX. 146 
PCX. 147 

pa. 148 

PCX. 149 
PCX. 150 
PCX. 151 
PCX. 152 
PCX. 153 
Pa. 154 
PCX. 155 
PCX. 156 
PCX. 157 
PCX. 158 
PCX. 159 
Pa.160 
PCX. 161 
PCX. 162 
Pa.163 
PCX. 164 
PCX. 165 
PCX. 166 
PCX. 16? 
PCX. 168 
Pa. 169 
PCX. 170 
PCX. 171 
PCX. 172 
PCX. 173 
PCX. 174 
Pa.175 
PCX 176 
PCX. 177 
Pa. 178 
pa. 179 
pa. 180 

PCX. 181 
PCX. 182 
PCX. 183 
PCX. 184 
PCX. 185 
Pa. 186 
PCX. 187 
PCX. 188 
PCX. 189 
Pa. 190 

pa. 191 

PCX. 192 
PCX. 193 
PCX. 194 
PCX. 195 
Pa. 196 
PCX. 19? 
PCX. 198 
Pa.199 
pa . 200 



Gato 

Gauntlet 
Ghostbuster 2 
Guernlha War 
Hard Ball 
Heroes Of Lances 
Ikari Warriors 
II ha Disney 
Football (Salao) 
Indianapol is 500 
Jbird 

Jet Flight Simulat 

Karateca 

Karnov 

King of Chicago 
King Quest 1 
King Quest 3 
Las Uegas 
Leisure Lair 2 
Leisure Lair 3 
Lombard Rally 
Loom 

111 Tank Platoon 
Mahunt in New York 
Marble fladness 
Motocross 
Night Mission 
Decathlon 

One in One 1 (Bask) 
One in One 2 (Bask) 
Paper Boy 



(01) 

(01) 

(04) 
( 02 ) 
( 01 ) 
(03) 
( 01 ) 
( 01 ) 
(01) 
( 02 ) 
(01) 
( 01 ) 
(01) 
( 02 ) 
( 02 ) 
( 01 ) 
(03) 
(01) 
(06) 
(08) 
( 02 ) 
(06) 
(03) 

(05) 
( 02 ) 
(02) 
( 01 ) 
( 01 ) 
( 02 ) 
( 01 ) 
(01) 



Piratas (UGA) (02) 
Pit Stop (01) 
Monopoly (01) 
Police Quest 2 (06) 
Prince of Persia (02) 
Phohibi tion (01) 
PSY 5 (01) 
PT 109 (01) 
Had Mix (01) 
Bilhar 3D (01) 
Rad Warriors (01) 
Rambo 3 (02) 
Roger Rabbit (02) 
Roleta (01) 
Rushn'm Attack (02) 
Saboteur (01) 
Sail Simulation (01) 
SDI (01) 
Service Play Tennis (01) 
Shogun (01) 
Silpheed (W) (04) 
Sim City (02) 
Skate of Die (02) 
Sky of Die (02) 
Snooker (01) 
Soroban (01) 
Space Quest 1 (02) 
Space Quest 2 (03) 
Space Quest 3 (06) 
Laker « Celtics (02) 
Spy x Spy (01) 
Street F lighter (02) 
Street Road (03) 
Strike Fleet (01) 
Strip Poker (01) 
Summer Games 1 (01) 
Summer Games 2 (01) 
Test Driver 3 (UGA) (03) 
'Jolley Ball (Praia) (02) 
World Soccer (02) 
Power Drift (carro) (04) 
Hostage (02) 
Uiagem Centro Terra (02) 
Police Quest (03) 
Cine Porno 1 (01) 
Pipedream (01) 
Macadam Bumper (01) 
Obi iterator (02) 
Indiana Jones 1 (01) 
Stunts Driver (W) (04) 
Castelvania (02) 
Take Down (W) (02) 
Super Contra (01) 
Shinobi (01) 
Stellar? (04) 
Codename ; Iceman (W) (09) 
Star Tree) 5 (UGAXW) (05) 
Jig Saw Puzzle (01) 
Rock Ford (02) 
Robocop 2 (02) 
F 16/18 Simulation (01) 
Centurion (UGA) (03) 
Golden Axe (02) 
Miami Dice (04) 
Hunt Red October (01) 
Sumer Edition (04) 
Cine Porno 2 (01) 
Cine Forno 3 (01) 
Heavy Metal (01) 



CODIGO NONE 



QTDE DISCO 



pa. 201 

PCX. 202 
pa. 203 
pa. 204 
PCX. 205 
PCX. 206 
PCX. 207 
PCX. 208 
PCX. 209 
PCX. 210 
PCX. 211 
PCX. 212 
PCX. 21 3 
PCX. 214 
PCX. 215 
PCX. 216 
pa. 217 
PCX. 218 
PCX. 219 
PCX. 220 
PCX. 221 

pa . 222 
pa. 223 
pa. 224 
pa. 225 
PCX. 226 
PCX. 227 
PCX. 228 
PCX. 229 
PCX. 230 
PCX. 231 
PCX. 232 
PCX. 233 
Pa. 234 
Pa. 235 
Pa.236 
Pa. 237 
PCX. 238 
PCX. 239 
PCX. 240 
PCX. 241 
PCX. 242 
PCX. 243 
PCX. 244 
PCX. 245 
Pa. 246 
PCX. 247 
PCX. 248 
PCX. 249 
PCX. 250 
PCX. 251 
PCX. 252 
PCX. 253 
PCX. 254 
Pa. 255 
PCX. 256 
PCX. 257 
Pa. 258 
PCX. 259 
PCX. 260 
Pa. 261 
PCX. 262 
PCX. 263 
PCX. 264 
PCX. 265 
PCX. 266 
PCX. 267 
Pa. 268 
Pa. 269 
PCX. 270 
PCX. 271 
Pa.272 
Pa. 273 
Pa. 274 
PCX. 275 
PCX. 276 
PCX. 27? 
PCX. 278 
PCX. 279 
PCX. 280 
PCX. 281 
PCX. 282 
PCX. 283 
PCX. 284 
PCX. 285 
PCX. 286 
PCX. 287 
PCX. 288 
PCX. 289 
PCX. 290 
PCX. 291 
PCX. 292 
PCX. 293 
PCX. 294 
PCX. 295 
PCX. 296 



Battle Hawks 1942 (02) 
Space Rougue (02) 
Life and Death (02) 
Echelon (02) 
Star Defer.ser (UGA) (01) 
Hissao Imposssivel (03) 
Super Hang On (01) 
Xenon 2 (03) 
Hoyles (03) 
War in Middle Earth (03) 
Wind Walker (04) 
Hhell of Fourtune (01) 
F-16 Pilot (03) 
688 Attack Submar 2 (02) 
Babk to the Future 2 (02) 
Rastan Saga (02) 
Tennis Pro Tour (02) 
Chuck Years Aft (01) 
Pharao’ s Tumb (01) 
Cal lfornia Games 2 (04) 
Mah Jong (UGA) (02) 
Wings of Fury (02) 
Alley Cat (01) 
Tongs of Patman (W) (06) 
Crime Wave (UGA) (08) 
Uette (01) 
Renegade (02) 
Mickey Mouse (02) 
Altered Beast (W) (03) 
Battle Chess 2 (03) 
Low Blow (03) 
Secret Agent (05) 
Last Ninja 2 (03) 
Batman the Movie (03) 
Super Bike (01) 
PGA Tour Golf (01) 
Days of Thunder (02) 
Super Off Road (W) (02) 
Thexder 2 (EGAXW) (03) 
Wing Comar.der ( UGA) (U) (12) 
Dino Wars (W) (07) 
New York Warriors (E-WK02) 
Avoid the Noid (01) 
Conflict in Europe (02) 
Steel Thunder (02) 
PC Pool Chal lender (01) 
Bandit King (EGA-2D) (03) 
Titanic 2 (02) 
Dark Castle (2D) (02) 
Manic Mansion (UGA) (02) 
Weird Dreams (02) 
Red Dragon (01) 
Sea Dragon (01) 
Monaco GP (Confirmar) (12) 
Exterminador do Futuro (08) 
Freddy Hardest (01) 
Road Runner (01) 
Carmen Sandiego 2 (03) 
King Quest 5 (W) (32) 
Zac He Cracker (02) 
Street Road 2 (04) 
Baal (UGA) (01) 
Grave Yardege (03) 
Sword of samurai (03) 
If it Moves Shoot (03) 
Menace (UGA) (02) 
Captain Comic (UGA) (01) 
Mario Bross (UGA) (01) 
The Game of Harmony (01) 
Packet Rocket (01) 
Infiltrator 2 (01) 
Operation Clean Street (02) 
Ultima 5 (05) 
The Book of Hobein (02) 
King Quest 4 (05) 
T. Drive 2 (Muscle CarsHOl) 
Might Magic (02) 
Sentinel Worlds (02) 
Battle Tech 2 (04) 
Stunts (04) 
Manchester United (02) 
Michael Andretti (E-W) (05) 
Lemmings (W) (03) 
Space Ace (UGA) (10) 
Conan (UGA) (U) (07) 
Capitao Trueno (01) 
ABC Monday Nig Football(06) 
Sapo Demo (01) 
Battle Zone (01) 
Master Blaster Pinbal 1 (01) 
Skate Rock (01) 
Big Top (01) 
Popolous (04) 
Narco Police (02) 
New GF Motocicle (01) 
Rick Dangerous (01) 



(M) Necessita Winchester 
(E-U) Winchester e monitor EGA 
(UGA) Monitor UGA / 2D 2 drives 



FORHA DE PAGTOS: (1) CHEQUE NONINAL e CRUZADO (2) REEMBOLSO POSTAL (SEDEX A COBRAR) So paga quando retirar no correio. 



-Relacione nu*a folha o Codigo, None e Quantidade de Discos gue e usado para cada program. Para fazer o calculo de seu 
pedido, wiltiplique a quantidade de discos gravados pelo valor de sua c 



TABELA DE PRECOS 

Copia de Jogos en disco 5.1/4 
Copia de Jogos eN disco 3.1/2 
Copia Aplicat. e« disco 5.1/4 
Copia Aplicat. eN disco 3.1/2 



opcao conforNe tabela abaixo. Entrega 15 dias. 

PAG TO CHEQUE (15 Desc) PAGTO P/REEMBOLSO (Sedex a Cobrar) 

CrS 1.700,00 Cr$ 2.000,00 



IHPORTANTEM? 



Cr$ 2.350,00 
Cr$ 2.100,00 
CrS 2.800,00 



CrS 2.800,00 
CrS 2.500,00 
CrS 3.300,00 



Estao inclusos nos precos o custo dos diske- 
tes e das despesas postais. Para coNpra aci- 
Na de CrS 25.000,00 gratis disco c/40 senhas 



Relacao de Softwares elaborados em 
nosso CPD. AcoNpanha instrucoes. 



Pa. 9001 - MALA D1RETA 

Emite relatorio e etiquetas de duas 
carreiras. CrS 8.000,00 



PCX. 9002 - CONTROLS BANCARIO 

Desti.iado ao controle de Cheques de 
Empresas ou particular inclusive de 
cheques pre-datados, emite extrato. 

CrS 10.000,00 



pa. 9003 - ADNINISTRACAO ESCOLAR 

Sistema completo de Administracao 
escolar, acompanhamento de notas 
historicos de alunos, boletins 
historicos de professores. 

CrS 40.000,00 



pa. 9004 - CONTROLE DE RESTAURANT! 

Emite comanda de fechamento de mesa 
calcula comissao de garcons, contro 
la estoque de bebidas e |>es<juisa de 



vendas. 



.000,00 



PCX. 9005 - CONTROLE DE ESTOQUE 

Control a entrada/saida de produtos, 
emite relatorios dos produtos que 
atingiram a quant, minima/max., faz 
pesquisas de vendas e entradas, re- 
marcacao de precos, cadastro de for 
necedores e imprime NF simulada de 
vendas. CrS 35.000,00 



Pa. 9006 CONTAS A PAGAR E RECEBER 

Relatorio por numero de duplicatas, 
relatorio por ordem de vencimento, 
relatorio por centro de custo, 
e demais retinas referente ao con- 
tas e pagar e receber da empresa. 

12.000,00 



PROGRAHAS APL1CAT1U0S DE DONINIO 
PUBLICO E SHAREWARE. 



CODIGO NONE 



QTD DSK 



pa. 5001 EQUATOR Er.sino de matema- 
tica, ciencias e financas (1) 

Pa. 5002 COLLAGE Editor de desenhos 
e slides, podendo ser gravados (1) 
Pa. 5003 ABC FUN KEYS Ingles para 
criancas entre 2 e 5 anos (1) 

pa. 5004 SPANISH UERB Ensino dos 
verbos em Espanhol (1) 

pa. 5005 GERNAN TUTOR Ensino da 
lingua alema. (1) 

PCX. 5006 ITALIAN TUTOR Ensino da 
lingua italiana. (1) 

PCX. 5007 FUNNELS Ensino de matema- 
tica para criancas. (1) 

pa. 5008 NOONBEAN Astronomia (1) 
Pa. 5009 CHASN Ensino assembler (2) 
PCX. 5010 PC PROFESSOR Ensino da 
1 mguagem Basic. (1) 

PCX. 5011 TUTOR CON Ensino do uso 
do PC e do DOS. (1) 

PCX. 5012 LQ PRINTER Imprime cabeca- 
1 ho em varios tipos. (1) 

pa. 5013 PC DOS HELP Ensino DOS (1) 
Pa. 5014 PASCAL TUTOR Ens.Pascal(2) 
PCX. 5015 CALCULUS Er.sino da algebra 
e trigonometria. (1) 

Pa. 5016 PC TOUCH Ensino de dati- 
1 ogr af l a (1) 

PCX. 5017 FLASH CARDS Dicionano 
ingles ♦ de 7000 vocabularios (4) 
PCX. 5018 TUTOR TURBOC Ens. Turboc(2) 
TurboC (2) 

PCX. 6001 GALAXY Otimo editor do 
tipo do Wordstar (2) 

PCX. 6002 PC WRITE Facil e poderoso 
editor de textos. (3) 

Pa. 6003 LETTER WRITE Imprime car- 
tas personal izadas (1) 

Pa.6004 CHI WRITER Editor de texto 

y rafico (2) 

.6301 PC CALC Poderosa plamlha 
com graficos (3) 

PCX. 6302 ASEASYS PI anil ha com capa- 
cidade de 256 x 1024 (2) 

Pa. 6303 INSTACALC Esta pi anil ha 
permanece residenie na memoria (1) 
KX.6304 POWER SHEETS PI an. 3D (2) 
Pa. 6601 PC KEYDRAW Desktop (5) 
Pa. 6651 CHEQUE IT OUT Controle e 
impressao de cheques (1) 

PCX. 6652 FLOWDRAW Otimo programa 
para fazer fluxogramas (3) 

PCX. 6653 FORNASTER Gerador de for- 
mularios (1) 

Pa. 6654 PC CONT AXS Software de 
contabi 1 idade (7) 

Pa. 6701 NICRO GENE Conheca sua ar- 
vore genealof ica (1) 

PCX. 6703 ASTROLOGIA Calcula mapas 
astrologicos (1) 

Pa. 6704 BI0RR1T1H0 Biorritimo, 
Tarot e I Ching (3) 

Pa. 6705 PC SORTE Ajuda a fazer pre 
visoes para Loto, Sena e Lotena 
Esportiva (1) 



? 

MIT APEFTE L'«A TECLfi PARA CONTINUAR 
LCOF 

CASE CPli=I 

CCflADGS=SF'ACEt 35) 

SAVE SCREEN TO CDGS 
CLEAR 

T 'TEZlE EXIT PARA RETORNAR AO SISTEMA' 

? 'CBS: NAO SE ESQUECA DE PERHANECER NO SUB-DIRETORI 

. e 

u 

? ' QUE ERA CORRENTE NA HORA DA SAIDA DO PROGRAM 

, / 

CGL0CAL=6ETE ( ' COHSPEC ' ) 

SET CURSOR ON 
RUN &CGLQCAL 
SET CURSOR OFF 
LOOP 

CASE OPU=3 

DO NOLDURA WITH ' APASAR ARQUIVO DO DISCO' 

DO CENTRO WITH 22, 'DISITE 0 NONE DO ARQUIVO DESEJADO 
PARA APASAR 

NARQ=SPACE( 14) 

8 11,13 TO 13,66 

8 12,14 SAY QUAL 0 NONE DO ARQUIVO A SER APASADO: ' 
SET NARQ 

SET CURSOR ON 
READ 

SET CURSOR OFF 

IF El'PTYtNARG) .OR. LASTKEY ( )=27 
_3DP 
ENDIF 

NAR3=RTRIN{NARG) 

IF .NO*. FILE (NARQ) 

DC MEXISTE 
LOOP 
ENDIF 
CERTs'N' 

SET COLOR TO H/R 
8 11,27 TO 13,49 DOUBLE 
8 12,28 SAY SPACE ( 20 ) 

8 12,28 SAY TEN 'CERTEZA (S/N):' SET CERT 
SET COLOR TO 
SET CURSOR GN 
READ 

SET CURSOR OFF 
IF CERT='S' 

DELE FILE &NARG 
ELSE 
LOOP 
ENDIF 

CASE OPUM 

REANT=SPACE(14) 

RENO=SPACEi 14 ) 

DO NOLDURA WITH 'RENONEAR ARQUIVO DO DISCO' 

DO CENTRO WITH 22, 'DIGITS 0 NONE DO ARQUIVO PARA REN 

ONEAR' 

8 12,15 TO 15,61 
8 13,16 CLEAR TO 14.60 



8 13,16 SAY NONE DC ARQUIVO PARA RENOHEAR: ' 

8 COLO.ROWI) GET REANT 

SET CURSOR ON 

READ 

SET CURSOR OFF 

IF ENPTY(REANT) .OR. LASTKEYt )=27 
LOOF 
ENDIF 

IF FI LEI RE ANT) 

RENO=REANT 

8 14,16 SAY ' RENONEAR PARA: ' 

8 COLO.ROWI) GET RENO 

SET CURSOR ON 

READ 

SET CURSOR OFF 
IF EMPTY (RENO) 

LOOP 

ENDIF 

RENAME ItREANT TO 4REN0 
LOOP 
ELSE 

DO NEXISTE 
LOOP 
ENDIF 

CASE 0PU=5 

DO NOLDURA WITH 'FORHATAR DISCO' 

8 9,15 SAY 'Nesta opcao FORHATAR DISCO, voce deve pr 
oceder' 

8 10,15 SAY 'da seguinte taneira: 

8 12,15 SAY 'Coloque u* disco viroe* ou disco antigo 
no drive A:' 

ft 47 I ^ CAV ' r nr 4 i 4 i nnn-pn min nn 1 n nnn rnn4 

w ;j|U an; uc; ix i *ijuc oc vjue ncic nou cslcjb# uuii l 

idos dados 

8 14,15 SAY 'iiportantes por que este sera totalnent 
e apagado.' 

8 22,18 SAY 'TECLE [f3] PARA CONTINUAR, OU ALSO PARA 

SAIF,' 

TK=INKEY (0) 

IF TK=-2 
CLEAR 

SET DEFA TO 4DRIVESIS 
RUN FORNAT A: 

IF DOSERROROOO 
CLEAR 

? 'ERRO NA EXECUCAO DO PROSRANA. VERIFIQUE ARQ 
UIVOS DO DISCO SISTENA.' 

QUIT 

ENDIF 

WAIT ' APERTE UNA TECLA PARA CONTINUAR . . 

LOOP 

ELSE 

LOOP 

ENDIF 

CASE QPU=6 
EXIT 
ENDCASE 
ENDDQ 

re urn Continua na proxima edicao 
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M S X I CATftLOGO REDUZIDO - SOflENTE OS SOFTS ItAIS VUffilDOS NOS ULIIflOS 6 WESES 



UEJfl NOSSfi LISTS COUPLETS NS MICRO SISTEflSS No. 106 Paginas SO e SI 





UIDEO 

GAMES 


MEGA DRIVE 


NINTENDO 


MASTER SYSTEM 


SUPER FAMICOM 


GAME BOY 


CARTUCHOS 


MEGADRIVE 


SONIC 
FINAL BLOU 
GAYARES (01) 
RESISTENCE 
FANTASIA 
HICKEY MOUSE 
BA IN AN 
MONACO GP 
SHADOW DANCER 
STRIDER 


NINTENDO 


TARTARUGA 2 
N.GAIDEN 3 
BATTLE TOADS 
SIMPSONS 
YO NO ID 
ROBOCOP 2 
S. MARIO 3 


MASTER SYSTEM 


MONACO GP 
ESVAT 

MICKEY MOUSE 
SUMMER GAMES 
HOONUALKER 



MSX 1 NORMAL - SUPER JOGO 



CrS 455,00 - 1 pop Disco 

954 Rambo 3 

955 Uorld Games 
957 After Barner 

959 Double Dragon 

960 Dragon Ninja 

961 Elite 

966 Operation Wolf 

970 Renegade 3 

971 Paris Dakar 

972 4x4 Road Racing 

973 Robocop 

978 Telas Porno i 
981 Telas Porno 2 
987 Ghostbuster 2 

989 Emilio Sanches 

990 Batman The Movie 

Lane ament os - CrS 800,00 

SUPER MARIO BROS 
TARTARUGAS NINJA 
DOUBLE DRAGON 2 
INDIANA JONES 2 



MSX 1 NEGARAM 256 



Cr$ 455,00 - 1 por Disco 

001 Newes is 1 

002 News is 2 

003 Salamander 

004 Epsode 2 

006 FI Spirit 

007 Knight Mare 2 

009 Final Zone 

010 Fantasy Zone 

013 1942 

014 King’ s Ual ley 2 

015 Gall Force 

016 Pinguim Adventure 
019 Super Laydock 
023 Go 1 vel 1 ius 

028 Flight Simulation 

029 Nemesis Twin Bee 

030 Eggerland Mistery 2 

031 Salamander Imuniaade 

032 Hyd Lad 2 



MSX 1 JOGOS ADAPTADOS 



Cr$ 950,00 - 1 por Disco 

001 Nemesis 1 

002 Final Zone 

003 Super Laydock 

004 Uaxol 

005 Mirai 

Este jogos forao adapta- 
dos p/ rodar sen Megaram 



MSX 2 NORMAL - JOGOS 



CrS 520,00 - 1 por Disco 

106 Chess 
114 Monaco 
116 Flash Gordon 
118 T.N.T. 

120 Uorld Golf 
125 Test Drive 
133 Last Mission 
142 Breaker 
152 11 ha do Tesouro 
155 Eideloss 



MSX 2 NORMAL - PORNO 


CrS 


590,00 - 1 por Disco 


201 


Cicciolina 1 


202 


Cicciolina 2 


203 

204 


Playbou Sexy 
Strip Poker 


205 


Porno Show 


211 


Telas Digital izadas 7 



MSX 2 NORMAL - APLIC/UTIL 



Cr$ 715,00 - 1 por Disco 

231 Uideo Graphic 
235 Pixel II 

239 Super Printer 

240 Tassword 2 

241 Pixel III 



MSX 2 - NEGARAM 256 



CrS 520,00 - 1 por Disco 

301 Ikari Uarriors 

302 Out Run 

308 Family Boxxing 
312 Rastan Saga 
316 Zanac Excelent 

320 Super Rambo 

321 Castelvania 1 

322 Hinotori 
327 A 1 este 
331 Contra 

335 Racing Cars 
345 Space Mambow 
349 Metal Gear 1 

352 Super Runner 

353 Punks 2 

355 American Soccer 

356 Animal Uars 2 



MSX 2 - 720 kb 



Cr$ 910,00 - por Disco 

XAK 2 (6 Discos) 

FRAY (4 Discos) 

BURAI (5 Discos) 

DRAGON SLAYER (4 Discos) 



COLECOES MSX 1 



COLECAO 1 - Cr$ 2.300,00 

4001 Agenda Domestica 1 

4002 Banco de Dados 1 

4003 Mala Direta 1 

4004 Contr de Estogue 1 

4005 Editor de Texto 

4006 Contas a Pag/Rec 

4007 Contabi 1 idaae Domest 

4008 Agenda Anual 

4009 Controle Bancario 

4010 Planilha MSX 



COLECOES MSX 1 



COLECAO 7 - CrS 2.300,00 

4061 Abel ha Sabi a 2 

4062 Abel ha Sabi a 3 

4063 Motorista Sideral 2 

4064 Hissao Resgate 

4065 Mago Uoador 

4066 Palhaco Expl 1 

4067 Palhaco Expl 2 

4068 Peseador Espacial 1 

4069 Anagrama 1 

4070 Anagrama 2 



SUPER APLICAT e UTILIT 



CrS 1.800,00 - 1 por Dsk 

Contabi lidade 
Folha de Pay to 
Agenda de Compromisso 
Linyuagem C <2 Discos) 
Msx Dos Tools 2 
Mala Direta 
Controle de Es toque 
Uni-Telas ♦ 39 Telas 
Ed Music ♦ 56 Musicas 
Tradutor 

Uideo Texto System 
Mega Print 

Uideo Hi ts (2 Discos) 
Turbo Pascal 



PACKS JOGOS - MSX 1 



CrS 1.950,00 por Pack 



PACK 17 

Batman - B1 agger - Choroq 
Condor Man - Desol ator 
Flam Stones - Kinasai 
Pitfall 1 - Super Cobra 
Magical Kid Uizz 



PACK 20 

Future Knight - Maziac 
Oils Wells - Castle 1 e 2 
Thexder - Trailblazer 
Ultra Chess e Zanac 2 



PACK 28 

Beach Head - Boom - Clued 
Fred and Bub - Jump Land 
Midnight Brot - Monopolio 
Monsters - Super Mind e 
Uicius Uiper 



PACK 32 

Aguia de Fogo - Alpharoid 
Astro Plumer - Atack Toma 
Bmx Simulator - Break in 
Captain Chef - Car Race 
Scentipede e Chuck Egg 



PACK 34 

Cawlot Uarriors - Elevat 
Action - Enduro - Fruit 
Machine - Tiger 1. 2 e 3 
Traza Manzanas - 3D Uater 
U inter Games 1 



PACK 47 

Eurtr - Futbol of the yea 
Kubus - Super Bowl - Sup 
Soccer - Taction - Uboot 
Catabalao - Yiear Kung fu 
e Zexas 1 



PACK 54 

He Man - Alien o Resgate 
Mov Pacman - Police Head 
Uest - Ultraman - Timer 
Bomber - Arkanoid 1 1 - 
Snakey e Cetus 



PACK 62 

Konami Soccer - Ping Pong 
Tennis - Basebal 1 - Bi lha 
Basket - Uolley Ball 
Gran Pnx Uorld - Hyper 
01 imp e Hyper Sports, 



PACK 63 

Galaga - Star Soldier 
Zanac 1 - Star Force 
Hyper - Zanac 2 - Gulkave 
Columbia - Bostonian e 
Phants I 



PACK 64 

Adonis - Arnot’ s Puf 
Bop' - Reinado - Flick 
Kimpo - Magical Pinball 
Post Mortem - Roma e 
A Maldicao 



PACK 65 

Cavern Death - Galaga 2 
Joquei - Knight Ninja 
Poker II - Scorpeon 
Sherlock Holmes - Ufo Az 
Sprint Games - Uonder Boy 



Os Packs acima sao compos 
tos de 10 jogos ♦ 1 Cop. 



SUPER PACKS - MSX 1 



CrS 1200,00 - 1 por Disco 



SUP PACK 3 OJL 

Ace of Ace - Krakout 
Capitao Sevilla 1 
Heddox - Don Quixote e 
Crazy Car 



SUP PACK 304 

Afteroids - Uenon 
Arkos I - Banana 
Mundo Perdido - Hochey 



SUP PACK 308 

Chicago 1930 - Taipan 
Navy Moves 1 - Sol Negro 
Aspar Motos - Rampart 



SUP PACK 310 

Humprey - Lady Safari 
Mad Mix - Navy Moves 2 
Sol Negro 2 - Titanic 2 



SUP PACK 315 

Bounce - Strange 
Final Court tdom - Bouken 
Strip Play - Uortex 



SUP PACK 319 

After Uar 1 - After Uar 2 

Xenon - Syndrome 

Obi iterator - Skate Drag 



SUP PACK 324 

Chase H.Q. - Corsarios 2 
Invaders - Meganova 
Play Ball 1 - Motor Bykes 



SUP PACK 325 

Jungle Uarriors - Mach 3 
Mecon - Power and Magic 
Mortadelo 1 e 2 



SUP PACK 326 

A.E. - Astro Marine Corp 
Bumpy - Dimensao Omega 
Dioza Cozumel - Smurfs 



SUP PACK 327 

Ano del Mundo - Coman do 4 
Dimensao Omega 2 - Mambo 
Rath-ha - XH 63 Patrol 



SUP 


PACK 


328 


fivent 


Original - Crisis 


Dioza 


Cozumel 2 - S 


Ball 


Hecar.o 


Oasis - Rams 


ak 


SUP 


PACK 


329 


Curre 


Jimenez - Uis 


ion 


Neo-z 


- Artie Fox 




3D Pool - America 





OBS: Cada Super Pack tew 
6 jogos. 



JOGOS MSX 2 720 kb 
ADAPTADOS PARA 360kb 



Cr$ 500,00 - Cada Disco 



Akar.be Dragon (2D) 

Psycho World (2D) 

Disc Station 0 (2D) 

Twinke Star (2D) 

Greatest Drive (4D) 
SA-ZI-RI (2D) 

Feed Back (2D) 

Fi rehawk - Thexder 2 <4D) 
Konami Game Col, (2D) 
Herzog (3D) 

Youmakorin (3D) 

Aleste Special (2D) 
Famicle Parodic 2 (4D) 
Aleste 2 (6D) 

Princess (3D) 

Tetris (2D) 

Uri dead line (2D) 

YS 3 (10D) 



NOUIDADES MSX 2 MEGARAM 



Cada CRS 500,00 



Ninja Kun (ID) 
Malaya (ID) 



NOUIDADES MSX X MEGARAM 



Cada CRS 500,00 



Dragon Slaver (ID) 
Hydlide 2 (ID) 



JOGOS MSX 2 - 720kb 



CRS 600,00 - Por Disco 



Emerald Dragon (5D) 
Peach UP (2D) 
Columms (ID) 



NOUIDADES MSX 1.0 



TOC BIN 
SAINT DRAGON 
S1T0P0NS RACE 
INDIANA JONES 2 
FUTEBOL MAHEGER 
AFRICAN RALLY 
CONTINENTAL CIRCUS 
PROFESSIONAL TENNIS 
CARLOS SA1HZ TOYOTA 
CHESS MASTER 
FINAL UAR 

MOUNTAIN BIKE RACER 
SAR 

SIR UOOD 

THE LIGHT CORRIDOR 
UINTER HAUK 
GREMELINS 2 (ID) 
GHOSTBUSTER 2 (ID) 
GEMINI UINGS (ID) 

OS INTOCAUEIS (ID) 
LORNA (ID) 

CADA CRS 400,00 



ADAPTADOS MSX 1 S/ MEGA 



1942 (ID) 

FLIGHT SIMULATION (ID) 
DAIUA STORY (ID) 

CADA CRS 500,00 



COMO ADQUIRIR NOSSOS PRODUTOS 

1) Relacione em uma Foha de papel os produtos que deseja aquirir, in- 
dicando o numero, now e para qual o computador. 

2) Escreva seu none e endereco completo de forma legivel. 

3) FORMA DE PAGAMENTO: A) Reembolso Postal B) Cheque Nominal 

A) Nesta Modal idade voce so pagara seu pedido ao retirar no Correio 
Sendo que sofrera urn acre sc l mo de 10*/. 

B) Para Pagamento com Cheques os Precos nao sofrerao acrescimo e as 
despesas de Correio sao por nossa conta. 

Disco 5.1/4 CrS 520,00 
OBS: OS PROGRAMAS ACIMA NAO INCLUEM DISCO. Disco 3.1/2 CrS 1490 00 



UTILITARIO 

Aprenda a "ver" arquivos com atributos invisiveis 


PC 


Um DIR muito especial 


Micro: IBM PC/XT 
Memdria: 512 Kbytes 
Video: CGA 
Linguagem: Turbo C 
Requisitos: Nenhum 



□ Marcelo Flores Vieira 



Este utilitcirio tem como objetivo incrementar o comando 
[DIR] do sistema operacional, possibilitando ao usu£rio 
"ve r" arquivos que tenham atributos como READ-ONLY, 
SYSTEM e HIDDEN. A sintaxe a ser utilizada 6 a seguinte: 

DIRF [DRIVE] [DIRETORIO] [NOME e EXTENSAO] 

Caso "drive, diretdrio, nome e extensSo" nao sejam for- 
necidos, serA mostrado, ao usudrio, um texto de ajuda. 



As informagoes fornecidas pelo programa s3o as mes- 
mas mostradas pelo comando [DIR], acrescentando-se o 
atributo de cada arquivo designado por "nome e extensao" 
"Nome e extensao" podem ser designados utilizando- 
-se e "?" de acordo com as necessidades do usudrio. 
0 programa pode ser interrompido teclando-se "CTRL" + 
"C" simultaneamente. 



MARCELO FLORES VIEIRA 6 formado em Engenharia 
MecSnica pela Univorsidade Federal Fluminense e possui ou- 
tros cursos de extensfio em AnAlise de Sistemas pela PUC. Pro- 
grama em (X Cobol, Clipper, Pascal, etc 



• Listagem 1 



/* 



Prograia: OIRF.C 

Funcao : Exibir arquivos de deterwinado drive/direto 
r io 

■ostrando taibei seus atributos. 

Autor : Marcelo Flores Vieira - HP&M Consultores S/C 
Ltda. 

Rua Frei Henri que, 225 - CEP: 20751 





*/ 

Rinclude (stdio.h) 

Rinclude (dos.h) 

Rinclude <fcntl.h) 

Rinclude < io.h> 

Rinclude <dir.h> 
void cabecalho(void) ; 
void help (vo id); 
void aostra.arq(void) ; 
struct ft iie ft i#e; 
struct ffblk ffblk ; 

■ain(int argc, char *argvC3) 

{ 

int pl,achei, status, conf; 

char dr iveCNAXDRIVE], dirCHAXDIR], noieCHAXFILE], extCH 
AXEXT3, 

pathCMAXPATH], paux[MAXPATH3; 
if (argc < 2) { help();exit (0);) 
cabecalhoO; 

fnspl it(argvC13,dr ive,d ir,no«e,ext ); 
strcpy(path, drive); 



strcat(path,dir); 
strcpy (paux, path); 

achei = f indf irst (argvCi3,&ffblMx07); 
if (achei==-i) pr intf ("\nNenhu* arquivo com especificac 
ao Xs\n",argvCi3); 

while (lachei) 

( 

strcat (paux,ffblk .ff.naae) ; 
i f ( (p i=open ( paux , 0.B INARY ))! =-l ) 

( 

getft iae(pi,&ft iae); 

aostra.arqO; 

dose(pi); 

else printf("\n Erro na leitura do arquivo Z12s",pa 

ux) ; 

ache i =f i ndnext <&f f blk ) ; 
strcpy (paux, path); 

) 

pr intf ("\n"); 

} 

void cabecalho(void) 

C 

pr intf ("\n\n DIRF - HP&H Consultores S/C"): 
pr intf ("\nOUT/90 - All rights NOT reserved"); 
printf("\n verso 1.10"); 

P rintf("\n\nTel.s (021)594-7521 - PROVISARIOXn") ; 

} 

void help(void) 

{ 

cabecalhoO; 

pr intf ("\nEste utilitario tem coao final idade, increaen 
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tar o "); 




(. 








pr intf ("conando ’DIR'"); 




case (0x20)5 


pr intf ("Arq.");break; 






pr intf("\ndo S i sterna Operacional, possibil itando a leit 




case (0x01): 


pr intf (" Leitura" 


);break; 




ura de "); 




case (0x02): 


pr intf (" 


Escondido" 


);break 


printf("arquivos con"): 

pr intf ("\natributos cono 'HIDDEN ’SYSTEM ' e etc."): 


J 


case (0x03): 


printf(" Leitura 


Escondido" 


);break 


pr Intf ("\n\n\n Sintaxe correta: "); 


S 








pr intf ("\n\n OIRF [<dr ive)][<d i ret or io>]<nome-arquiv 




case (0x04): 


pr intf ("Arq. Leitura 


Escondido 


Sistem 


o.ext >"); 


a" 


);break; 








pr intf ("\n\n\n Caso <drive) e/ou <diretorio) sejaii on j t 




case (0x05): 


printf(" Leitura 




Sistem 


idos, este "); 


a" 


) ;break ; 








printf("ut ilitario"); 




case (0x06): 


pr intf ("Arq. Leitura 


Escondido 


Sistem 


pr intf ("\n assumira o drive e diretorio corrente para 


a" 


);break; 








exibir os "); 




case (0x07): 


pr intf ("Arq, Leitura 


Escondido 


Sistem 


printf ("arqui-"); 


a" 


); break; 








pr intf ("\n vos especif icados."); 




case (0x08): 


pr intf("Rotulo");break 


• 

f 




pr intf("\n\n Os caracteres e V podem ser utiliza 




case (OxiO): 


printf( yy <DIR>") ;break ; 
pr intf("Arq. Leitura" 






dos para "); 




case (0x21): 


);break; 




printf("especif icar"); 

pr intf ( y/ \n os nones e extensoes dos arquivos.\n"): 


J 


case (0x22): 


pr intf ("Arq . 


Escondido" 


);break 


) 

void iostra-arq(void) 


f 


case (0x23): 


pr intf("Arq. Leitura 


Escond i do" 


);break 


( 




case (0x24): 


pr intf ("Arq. 




Sistem 


pr intf ("\nZi2s", ffblk .ff .name); 


a" 


);break ; 








if ( (ft i»e.ft_year+80)(i00) 




case (0x25): 


pr intf ("Arq. Leitura 




Sistem 


pr intf (" %02»i/%02u/%u y/ , ft i»e.ft_day,ft ime.ft-i»onth,f 


a" 


);break; 








t i me. ft -.year +80); 




case (0x26): 


pr intf ("Arq. 


Escondido 


Sistem 


else 


a" 


);break; 








pr intf (" Z02u/Z02u/Zu" , f t i le . f t -day , f t i »e . f t .non t h , f 




case (0x27): 


pr intf("Arq. Leitura 


Escondido 


Sistem 


t i»e.ft_year); 


a 7 ' 


); break; 


* 






pr intf (" Z02u:Z02u:Z02u",ft iae.ft.hour T ft ime.ft-ain T ft i 




default: 


pr intf ("Zx", ffblk. ff.attr ibhbreak; 


me.ft_tsec); 




} 








pr intf (" ZiOld ", ffblk. ff.fsize); 
switch (ffblk .ff_attr ib ) 


) 








■ 



CURSOS TECNICOS! 



APRENDA TO DOS 
OS SEG REDOS 
DA ELETRONICA 
EDA INFORMATICA 

ELETRONICA BASICA 
ELETRONICA DIGITAL 

Audio e radio 

TELEVISAO PB/CORES 

programacAo basic 

PROGRAMACAO COBOL 
ANALISE DE SISTEMAS 
MICROPROCESSADORES 
refrigeracAo e ar 
CONDICIONADO 
ELETROTECNICA 
INSTALACOES ELETRICAS 
SOFTWARE DE BASE 



CURSOS POR CORRESPONDENCE 

INTENSIVOS! DIIMAMICOS! 




KITS EXCLUSIVOS! 

KIT DE MICROCOMPUTADOR 

Z-80 £ MAIS: 

KITDE TELEVISAO • KIT DIGITAL 
ANALOGICO • KITDE RADIO AM-FM • 
KIT BASICO DE EXPERIENCIAS • KIT 
DIGITAL A VANQADO • INJETOR DE SINAIS. . . 



SOLICITE MAIORES 
INFORMAQ0ES SEM 
COMPROMISSO! 



> 




OCCIDENTAL SCHOOLS 

CURSOS TECNICOS ESPECIALIZADOS 

A v. Sao Joao, 1588 — 2 a Sobreloja 
01260 — Sao Paulo — SP 
FONE: (011)222-0061 



OCCIDENTAL SCHOOLS MSTIO 

CAIXA POSTAL 30.663 
01051 - SAO PAULO - SP 

Desejo receber Gratuitamente, o catalogo ilustrado do 
Curso de 

NOME 

ENDEREQO 

BAIRRO , 

CIDADE 

ESTADO CEP 



UTILITARIO 

Aprenda como acessar arquivos em 'C' 




PC 


Arquivos ASCII: 
e facil lidar com eles 


Micro: IBM PC/XT 
Memorial 512 Kbytes 
Video: CGA 
Linguagem: Turbo C 
Requisitos: Nenhum 



□ Marcia Marini e Claudio Oliveira 



Este utilitario pode ser usado para realizar copia de arquivos ASCII 
ou lista-los no monitor de video. Seu valor e principalmente didatico, 
pois ilustra a utilizacao dos comandos para manuseio de arquivos atra- 
ves da linguagem "C". 

Seu uso e simples. Para realizar uma c6pia deve-se digitar: 

- COPIA ARQ.ORI ARQ.DES 

ONDE: arq.ori e a denominapao do arquivo-origem; 
arq.des e a denominacao do arquivo-destino. 

Para listar na tela: 

- COPIA ARQ.ORI 

ONDE: arq.ori e a denominacao do arquivo a ser listado. 

Os nomes dos arquivos devem ser passados na linha de comando; 
caso contrArio, o programa indicate a maneira correta de ser executado. 
Em seguida, os arquivos sao abertos. Caso a abertura dos arquivos nao 
seja possivel, o programa emitirci uma mensagem de erro. 

0 programa realiza a leitura dos caracteres de um arquivo e a trans- 
ference do mesmo para outro arquivo ou para a propria tela, depen- 
dendo dos argumentos passados na linha de comando. 

MARCIA M. MARINI 6 t6cnica em Processamento de Dados 
e cursa o ultimo semestre de An£lise de Sistemas. Presta con- 
sultoria & Organizapao Mundial de Saude e ao Escritdrio Re- 
gional do Population Council. 

CLAUDIO L. V. OLIVEIRA 6 t6cnico em Eletrdnica e possui grau 
superior em An£lise de Sistemas. Programa em Clipper, C, Co- 
bol, Pascal e Basic. 



• Listagem 1 

'** Utilitario para Copia e L i st agem de Arquivo ASCII 
** Escrito por : Claudio L. V. Oliveira e Marcia M. Mar 
in i 

** Marco, 1991 
#/ 

include (stdio.h) 
raain(argc 7 argv) 
int argc; 
char *argvG; 

C 

printf ("\nCopiador de Arquivos ASCIINn"); 
printf ("Claudio L. V. Oliveira e Marcia M. Marini\n\ 
n")? 

if (argc == i) 

{ 

printf ("Sintaxe :\n\n"); 



printf ("Para copiar um arquivo • copia arq.ori ar 
q.des\n"); 

printf ("Para listar o arquivo na tela : cop - a arq 
.or i\n") ; 

} 

else 

if (argc == 2) 

1 istar (argvCl .1 ) ; 
else 

cop iar (argvCl], argvC2]); 

) 

copiar(or ig 7 dest) 
char *ong; 
char *dest; 

{ 

int car; 

FILE *arqo; 

FILE *arqd; 

arqo = fopen (or ig, "r") ; 
if < I arqo) 

printf ("Nao posso abrir arquivo origem\n ); 
else 
C 

arqd = fopen (dest 7 V'); 
if ( larqd) 

printf ("Nao posso abrir arquivo best ino\n"); 
else 
do 

{ 

car = fgetc(arqo); 
if (car != EOF) 
fputc(car 7 arqd); 

} 

nh ile (car ? = EOF); 
fclose(arqo) ; 
fc lose (arqd); 

) 

} 

listar (or ig) 
char *orlg; 

{ 

FILE #arqo; 
mt car; 

arqo = Fopen <orig 7 "r"); 
if (iarqo) 

printf ("Nao posso abrir arquWo ongemNn ); 
else 
C 

do 

C 

car = fgetc (arqo); 
printf ("Zc", car); 

) 

*h ile (car != EOF); 

} 

fclose(arqo); 

} 



38 MICRO SISTEMAS 




Tecnologia Eletronica 



PADRAO 
CGA 

LIGADO 
DIRETO 
NA ANTENA 
DA TV 





TRANSFORME SUA TV 
EM MONITOR COLORIDO 



Sem modificacoes na TV 
Sem modificacoes no micro 
Facil instalacao 
excelente desempenho 
Custo 10 vezes menor ao de um 
monitor colorido 



Fhesk Tecnologia Eletronica Ltda. 

Av. Presidente Kennedy 213, Centro 
Sao Gongalo - RJ - CEP 24610 
Tels. : (021) 712-8034 e 712-4312 





CURSO DE MONTAGEM DE PC. SISTEMA 

Chegou a sua vez de ganhar dinheiro montando PC. 

0 metodo e simples e rapido. Sao 200 paginas com 
dicas, tecnicas e ilustracoes e voce nao precisa saber 
eletronica, basta saber escolher corretamente os 
componentes: placas, drives, discos ri'gidos, moni- 
tor... Dicas e tecnicas de montagem e software. 
Conheca o hardware do PC. Como converter seu PC 
em AT . Faca voce mesmo! Este manual ensina como! 



MONTE UM PC IMPORTADO 
SEM ESTAR MONTADO NA GHANA 

DE APOSTILAS, RAPIDO E ECONOMICO. 

iiiiiiiii iiiiii i ii 

CAIXA POSTAL 11609 • CEP 22022 • RIO DE JANEIRO • RJ l~ 



Pagarei apenas Cr $ 13.800,00 mais despesas postais, e sei que 
vou receber um manual do curso de montagem de PC. 
Nome: 



. Estado:. 



_Cep: . 



Envie o cupom agora, sem precis ar mandar dinheiro. VocA s6 paga quando receber o 
seu manual na agftncia dos correios da sua cidade. Validade do prego atA 31/12/91, 
pedidos postados ap6s esta data sorgo atendidos polo valor do m6s da postagem 




HARDWARE E SERVICOS 



PRONTA ENTREGA: Computador AMIGA 500-P {cl 1 Mb inter- 
no). Expansao A-501 512 Kb original com Clock. A-520 TV- 
MODULATOR (NTSC ou PAL M), Interface MIDI, Sampler. Drive 
5 1/4 externo, Drive 3 1/2 externo, Modem 1200 RS. DIGIVIEW 
4.0 GOLD, Chip SUPER AGNUS. 

SOB ENCOMENDA: Impressora CITIZEN 200-GX com Kit Co- 
lor. AMIGEN, Monitor 1084-S. 

SERVIQOS: Transcodificacao de TV p / RGB, Instalacao de chip 
SUPER-AGNUS. Instalacao de 1 Mb interno. Transcodificacao 
de A-520 NTSC para PAL-M, ManutencSo para toda a linha e 
Assistencia T6cnica especializada. 



SOFTWARE 



• Mais de 700 titulos disponiveis de software 

• Ultimos lancamentos 

• Os melhores games 

• Utilit£rios para todas as areas: Grafica, Texto, Desktop. Vi- 
deo. Musical, CAD, etc. 

• Manuals originais 

• Gravacoes garantidas em 5 1/4 e 3 1/2 

• Remetemos para todo o Brasil 



AMIGA CHEAT 

GRATIS EM SUAS COMPRAS 



by AVALLON (do n° 1 ao 25): relagao com dicas. passwords, 
fases secretas, imunidade total, vida infinita. tempo infinito. etc. 
Muitas meditas! Agora voce j£ pode chegar ao final de mats 
de 190 jogos de Amiga. Pega gratis o numero do seu AMIGA- 
CHEAT ao comprar softs de Amiga na AVALLON. 




JOGOS 

(MSXl, MSX2 e 
MEGARAM em 
disquetes 5 1/4 e 
3 1/2) 



APLICATIVOS PROFISSION AIS: 



Banco de Dados, Plamlha de Calculos, Mala Direta. Agenda. 
Contabihdade, Ficharios, Controle de Estoque. Editores de 
Texto. Ceilculos Estruturais. 



LINGUAGENS 



C (ASCII/Z80), C (Library). C (AZTEC)*, Turbo Pascal*. Cobol 
80*. DEVPAC 80*. Forthran, Mega-Assembler*. Mumps* * 
Acompanham manual. 

DIVERSOS 

Sistema Grafico para Desenho*. Sistema Desktop 
Publishing*. DOS* Coptadores Diversos*, Editor de Video*. 
Editor Musical* Graficos Estatisticos*. SENA- Soft. LOTO-Soft, 
Sistema CAD* e muito mais 1 (* Acompanha manual). 



PERIFERICOS (Consulte-rtos) 



CATALOGO MSX E AMIGA 




Se voce ainda nao tern o nosso catalogo completo n§o perca tempo. Envie-nos uma carta com letra legivel. endereco completo 
e telefone (se tlver) solicltando o seu. E gratis! 



AVALLON INFORMATICA LTDA. 

AV. ALMIRANTE BARR0S0, 22 SALA 602 - CENTRO - RIO DE JANEIRO - RJ 
- CEP 20031- A0 LAD0 DO METRO CARI0CA - DAS 9:30 AS 18:30 HS. 



tel (021)262-1636 










PROGRAMA 

Transforme seu micro num instrumento musical 


PC 


> 

Orgao no micro 


Micro: IBM PC/XT 
Memoria: 512 Kbytes 
Video: CGA 
Linguagem: GwBasic 
Requisitos: Nenhum 



□ Emerson Tedesco Faria de Morais 



Este programa tern como finalidade produzir sons a medida 
em que voce vai digitando uma letra. A cada letra o som e di- 
ferente, como se fosse um orgao; a interruppao desse pequeno 
orgao 6 no CONTROL + BREAK. Voce pode trocar o som, tro- 
cando os valores do SOUND. Construa o seu proprio orgao. 



EMERSON TEDESCO FARIA DE MORAIS cursa a s6tima se 
rie, e 6 professor de Basic. Programa em Basic, dBase III Plus, 
Clipper, Lotus e Wordstar. Utiliza um SID - 501. 



BIBLIOTECA DE FUNCOES PARA 0 






• ACENTUADOR 

• MOUSE 

• TELAGRAFICA 

• TECLADO 

• COMUNICAQAOVIA RS-232 

• CALCULADORA ON-LINE 

• CALENDARIO ON-LINE 

• E MUITAS OUTRAS 

SOLICITE DISCO DE DEMONSTRAQAO 



• Listagem 1 



10 — 

20' TRANSFORME SEU COMPUTADQR EM UM ORGAO 
30 ‘EMERSON T. F. OE MORAIS JULHG/1991 

40 

50 fit = INKEY* 

60 IF At = ”0" THEN SOUND 300,5 

70 IF At = "N 3 THEN SOJIND 600,5 

80 IF At = "E“ THEN SOUND 900,5 

90 IF At = "R" THEN SOUND 1200,5 



100 


IF 


AS 


= 


"T* 


THEN 


SOUND 


1500,5 


110 


IF 


AS 


= 


« Y ■ 


THEN 


SOUND 


1800,5 


120 


IF 


AS 


= 


•u* 


THEN 


SOUND 


2100,5 


130 


IF 


AS 


= 


"I* 


THEN 


SOUND 


2400,5 


140 


IF 


AS 


= 


"0" 


THEN 


SOUND 


2700.5 


150 


IF 


AS 


= 


ii pn 


THEN 


SOUND 


3000,5 


160 


IF 


AS 


= 


"A u 


THEN 


SOUND 


3300,5 


170 


IF 


AS 


= 


“S" 


THEN 


SOUND 


3600,5 


180 


IF 


AS 


= 


"D H 


THEN 


SOUND 


3900,5 


190 


IF 


AS 


= 


*! p H 


THEN 


SOUND 


4200,5 


200 


IF 


AS 


= 


*6" 


THEN 


SOUND 


4500,5 


210 


IF 


AS 


r 


"H" 


THEN 


SOUND 


4800,5 


220 


IF 


AS 


= 


"J" 


THEN 


SOUND 


5100,5 


230 


IF 


AS 


= 




THEN 


SOUND 


5400,5 


240 


IF 


AS 


= 


■L* 


THEN 


SGUND 


5700,5 


250 


IF 


AS 


= 


-\ - 


THEN 


SOUND 


6000,5 


260 


IF 


AS 


r 


8 7 H 

L 


THEN 


SOUND 


6300,5 


270 


IF 


AS 


= 


*v 


THEN 


SOUND 


6600,5 


280 


IF 


AS 


= 


“C" 


THEN 


SOUND 


6900,5 


290 


IF 


AS 


= 


«y B 


THEN 


SOUND 


7200,5 


300 


IF 


AS 


= 


"B H 


THEN 


SOUND 


7500,5 


310 


IF 


AS 


r 


“N* 


THEN 


SOUND 


7800,5 


320 


IF 


AS 


= 


a r 


THEN 


SOUND 


8100,5 


330 


IF 


AS 


= 


g ■ 

j 


THEN 


SOUND 


8400,5 


340 


IF 


AS 


= 


H 8 


THEN 


SOUND 


8700,5 


350 


IF 


AS 


= 


n f u 


THEN 


SOUND 


9000,5 


360 


IF 


AS 


= 


"0" 


THEN 


SOUND 


9300,5 


370 


GOTO ! 


50 











Ligue tone (0499)44-0144 

DIGITEC INFORMATICA LTDA 

Cx. Postal 104-89700 - Concordia - SC 
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/MS services 



APRENDA INFORMATICA 
SEM SAIR DE CASA 



CURSO RAPIDO. ECONOMICO E EFICAZ 



Sistema de Apostilas. Basta seguir os exercicios treinando dire- 
tamente em seu PC. 



COMANDOS TRADUZIDOS PARA NOSSO IDIOMA 



Opcional: Disquete 5 1/4" com Exercicios 



Mande seu pedldo para: R. Conde de Bomfim, n.? 422/418 - Tijuca - Rio 
• CEP 20.520 a/C Ricardo Flores 



Desejo receber os (tens assinalados abaixo. S6 pagarei o valor correspondente 
ao total do pedido, incluido as despases de remessa. na agenda do 
correio da minha cidade. 



Pregos: 


Apostlla 


Disco 5 1/4" 


Lotus 123 
dBase III Plus 
WordStar 5.0 


□ 16.500,00 

□ 16.500,00 

□ 15.800,00 


□ 4.500,00 

□ 4.500,00 
D 4.500,00 


Total do Pedldo: 



NOME: . 

ENDEREQO: 

BAIRRO: 

CIDADE: EST.: CEP: 

TEL.: 

ASSINATURA: 



PROGRAMAS PROFISSIONAIS 
PARA MSX E PC 




LINHA MSX 

'Contabilidade Profissional Completa em Dbase II Plus: Cr$ 18.000,00 
Controle de Estoque Profissional em Dbase II Plus: CrS 5.400,00 
Super Conversor de Arquivos — Basic — Dbase: Cr$ 3.600,00 
Supershapes 1 ,2 e 3, para Graphos III e Page Maker: CrS 2.700,00 
E.V.A. Editor de Vinhetas Animados: CrS 5.400.00 
L.S.D. Letters Special Designer: CrS 3.600,00 
Mala Direta Plus: CrS 5.400.00 
Agenda c/ Relatorios e Consultas CrS 3.600,00 
MSX CHART Graficos Comerciais e Estatisticos CrS 3.780,00 
MSX Top Cad Editor de projetos Profissionais: CrS 6 800,00 



SOLICITE CATALOGO 



LINHA PC 

Agenda Profissional c/Mala Direta e Editor de Textos: CrS 60.000,00 
Contabilidade Profissional Completa: CrS 60.000,00 
Agenda Politics c/Mala Direta e Editor de Textos: CrS 60.000,00 
Agenda Juridica c/Mala Direta e Editor de Textos: CrS 60.000,00 
Programas de Dominio Publico e Shareware: Solicite Catelogo 

Pedldos atrav^s de Cheque Nominal ou Vale Postal A: 

NEWDATA INFORMATICA E SISTEMA8 LTDA. 

Rua General Osbrio, 264 -Centro - CEP 79.025 - Campo Grande- MS 
Calxa Postal 1.049 - Telefone: (067) 383-1604 



EXCLUSIVAMENTE LIVROS DE INFORMATICA 
LIVROS E REVISTAS IMPORTADAS 



LIVRARIA 



CIENCIA NOVA 



• COMPLETA LINHA DE SUPRIMENTOS: 

• DISQUETES 

• FORMULARIOS 

• ETIQUETAS 

• PORTA DISQUETES 

• CAPAS 



ESTABILIZADOR 
FILTRO DE LINHA 
CAIXA COMUTADORA ETC. 



Despachamos p/todo o Brasil 
Remessas feitas por reembolso Postal 



Av. President© Vargas, 542/301 — Tel.: (021 ) 233-4045 




SOFTWARE & HARDWARE 

• JOGOS 

• APLICATIVOS E UTILITARIOS 

• MANUAIS 

• MICROS E PERIF£RICOS EM GERAL 
(Temos o menor prego, consulte-nos!) 

• ADAPTAQQES E TRANSCODIFICAQOES 

• GAR ANTI A TOTAL 

• MANUTENQAO E ASSIST^NCIA T^CNICA 




Rua Sao Francisco Xavier, 46 — Loja 
Largo da 2 s Feira — Rio de Janeiro — RJ 
CEP 20550 — Em frente ao Metrd 



VIDEO-GAMES E CARTUCHOS 

NACIONAIS E IMPORTADOS 
(A vista ou em 2 vezes, o menor pre$o) 



MSX 

• JOGOS (MSX1. MSX2. MEGARAM) 

• utilitArios 

• LINGUAGENS DE PROGRAMAQAO 

• GRAVACOES EM DISQUETES (5 1/4 e 3 1/2) 

• PERIF^RICOS EM GERAL 

(A vista ou em 2 vezes, consulte-nos!) 

• GARANTIA TOTAL 

• MANUTENgAO 

• assist£ncia t£cnica 



PROMOQAO DO MES (A vista ou em 2 vezes) 

• EXPANSAO DE MEM6RIA PARA 1 Mb COM CLOCK (Original) 

• CHIP SUPER-AGNUS (Com certeza o menor pregol) 

INSTALAQAO GRATIS 



GAME GEAR • MEGADRIVE/GENESIS 
NINTENDO/PHANTOM • SUPER FAMICON 
NEO GEO 



Para maiores mformagdes. solicite nosso Catdlogo de Pre- 
gos e Produtos por carta ou visite-nos em nosso 
SHOW-ROOM 




COOPER DATA 

Informitica 







DESPACHAMOS PARA TODO BRASIL 



SIST. INTEGRADOS^DESENVOLVIMENTO ESPECIFIC0 



Manutengao 



Contas 


a Pagar 










Contas a 


receber 






Gerenciamento 






Esto 


que 










Come 


ircial 



X 



* Integragao total entre sistemas 

► Facil Manuseio (manual On Line) 

► Treinamento e acompanhamento 
permanente . 



• Manutengao atualizada 

• Dinamismo na atualizagao de 
versdes 

• Compativel com outros Softwares 



PR0M0CA0 

SUPRIMEN1 



NTOS 

FORM. 80 COL. 1 VIA LISO 
FORM. 80 COL. 1 VIA 
MICROSERRILHADO 
FORM. 80 COL. 2 VIAS LISO 
FORM. 132 COL. 1 VIA LISO 
FORM. 132 COL. 2 VIAS LISO 
FITAS EXTRALIFE 
DISQUETES 

FORMULARIOS 

PERSONALIZADOS 

CONDIQOES ESPECIAIS 
PARA REVENDAS 


















APLICATIVO 

Mantenha sua locadora sob controle 



Controle de locadora 




Micro: IBM PC/XT 
Memoria: 512 Kbytes 
Video: CGA 
Linguagem: Clipper 
Requisitos: Winchester 



□ Ricardo Borges Gomide 



Nesta edicao publicamos a terceira e ultima parte do programa Controle de Locadora. 



* PROGRAMA CONTROLS DE LOCADORA 

* PROGRAMADOR RICARDO BORGES GOMIDE 

4 MODULO : C0N5ULTA FOR NOME (l OCanoS . Pi'*) 

4 

SET INTENSITY ON 
USE LOCA 
IMF = " MAO" 

DO WHILE IMF =” NAG” 

CLEAR TO 13.77 
SET COLOR TO W* 

04.2 SAY "CONSULTA FOR NOME” 

SET COLOR TO W 
TNOME =S?ACE (40) 

0 6.2 SAY "Entre NOME ” GET TNOME PICT M §* " 

READ 

IF TNOME =SP AC E ( 4 8 ) 

USE 

RETURN 

END IF 

LOCATE FOR NOME = TNOME 
IF EOF 1 1 

DO NOME 
RETURN 

ENDIF 
IMP = ''SIM M 
ENDDO 

IF IMP =” SIM” 

05,2 CLEAR TO 13.77 
DO TELA 

ENDIF 

3 IMP =5 PACE i 1) 

DO WHILE .NOT. QIM? * "SN" 

0IMP=5PACE ' 1 * 

SET COLOR TO 6+ 

? 13.2 SAY ”0u tra consults C5/N) ” GET 3 IMF PICT ” 

0 »“ 

READ 

ENDDO 

IF OIK? = , *S” 

DO L0CAN05 
ELSE 
RETURN 
ENDIF 

* PROGRAMA RICARDO BORGES GOMIDE 

4 PROGRAMADOR RICARDO BORGES GOMIDE 
4 MODULO AR0UI70 PROCEDURES i loc&* ’GC . Pf 
4 

PROCEDURE CGDIGO 

SET COLOR TO W*4 

0 15-2 SAY "CODIGO MAO ENCOMTRADO ' » ! ” 

SET COLOR TO W 



TIME=1 

DO WHILE TIME 12*30 
TIME=TIMEf 1 
ENDDO 

0 15.2 SAY ” 

RETURN 

PROCEDURE NOME 

SET COLOR TO W4 4 

0 15.2 SAY "NOME NAO ENCONTRADG » » 5 " 

SET COLOR TO W 
TIME=1 

DO WHILE TIME- 120© 

TIME=TIME4l 

ENDDO 

0 15.2 SAY " 

RETURN 

PROCEDURE ALUGADG 

SET COLOR TO W+- 

0 15=2 SAY "ESTE FILME ESTA ALUGADO » : ! ” 

SET COLOR TO W 

TIME=1 

DO WHILE TIME <1200 

TIME=TIME+i 

ENDDO 

0 15.2 SAY ” 

RETURN 

PROCEDURE LUGADG 

SET COLOR TC W+4 

0 15-2 SAY "ESTE FILME MAC ESTA ALUGADO' 

SET COLOR TO W 

TIME=1 

DO WHILE TIME <12@3 
TIME =TI ME 1*1 
ENDDO 

0 15.2 SAY " 

RETURN 

PROCEDURE CLOCA 

0 LIN. 2 SAY ” LOCATOR ” GET TLOCA 
0 LIN. 50 SAY "COD. LOG. " GET 7CCL0 
CLEAR GETS 
RETURN 

PROCEDURE REFL 

REPLACE ALUGADO WITH TALUGADC 
REPLACE RCQLC WITH TCOLO 
REPLACE DATA WITH BATE O 
DAT = DATE ' « *1 
REPLACE DADE WITH DAT 
REPLACE HORA WITH TIME « 

RETURN 

PROCEDURE EFT 

REPLACE ALUGADO WITH TALUGADC 
RETURN 

PROCEDURE TELA 
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ATV 



TV 

x 



^pMZiBl||f MONITOR COLOR 




• Transforme seu televisor 
em monitor colorido. 

• Show room no local 

• Venha conhecer! 



CADASTRAMOS 

REVENDEDORES 

AUTORIZADOS 



UM PRODUTO COM A QUALIDADE FHESK 



PERIFERICOS 



• DRIVES 

• PC’s 

• IMPRESSORAS | 


1 

• NO BREAK 
» ESTABILIZADORES 


LIGUE E CONFIRA! ; 


ASSISTENCIA TECNICA 



• IMPRESSORAS 

• PC XT 

• CONTRATOS 
AVULSOS 



C! 



IFITEGIAL 

HARD /SOFT 

Rua Major Avila, 260 — Sobreloja — Tijuca 

Rio de Janeiro — RJ — Tels.: (021) 254-4933 264-0379 





NOVIDADES 



• Para voce que deseja se distrair 
com seu PC-XT-AT compativel, nos 
temosasolugSo: 

•Os mais sensacionais jogos do mercado 

• Mais de 400 titulos em jogos para 
PC/XT/AT 

•Garantimos por 30 dias a gravagao dos 
jogos 

•Atendemos pedidos por telefone ou 
carta 



•Garantimos o menor prazo de entrega 
possfve! 

• Tambem trocamos jogos 

•Ligue-nos solicitando nosso cat£logo e 
maiores informagdes, nao esquecendo 
de especificar o seu equipamento 

AG INFORMATICA 

Cx. Postal 3901 - CEP 70084 - Brasilia - DFr 

Tel.: (061) 245 6979 




QUEM DISSE QUE / 

Aproveite esta 

COMPLETAR / nova promogao! 
SUA COLFCAO /Duasedigdes antigas 

DF MICRO / porCr * 1J50M 

JA NAS BANCAS! 

SISTEMAS? ¥ McrQ 




UTILIZE 

ESTE 

ESPAQO! 

A MICRO SISTEMAS 
oferece a seus 
clientes este servigo 
especial. 

Com esta opgao de 
espago e custo, 
ninguem vai deixar 
de anunciar. 

Consulte-nos pelo 
telefone 

(021) 2 32-0653 



^._jVlioro 

Sistemas 









SET COLOR TO U 

0 6.2 SAT "COO! SO • " GET CQDIGG 

97.2 SAY "FILMS " GET HOME 
9 8,2 SAY "GENE SO " GET GENE 
092 SAY "TEMPO " GET TEMP 

0 10,2 SAY "QUASI FI CACAO " GET QUAL 
0 11,2 SAY "SISTEMA " GET SI ST 
0 12.2 SAY "AND " GET AND 
0 13.2 SAY "VELOCIDADE " GET 7ELO 
0 15.2 SAY "ALUGABO " GET ALUGABO 
CLEAR GETS 
IF ALUGABO="SIM" 

0 16.2 SAY "CODIGO DO L0CA30R GET RCOL 

0 

IF BABE ! DATE i ) 

SET COLOR TO W+ 

ENDIF 

0 17,2 SAY "DATA DEVOLUCAO " GET DADE 
CLEAR GETS 
SET COLOR TO W 

ENDIF 

RETURN 

PROCEDURE TELA1 

SET COLOR TO W 

06.2 SAY "CODIGO " GET COLO 
07-2 SAY "NOME " GET LOCA 

03.2 SAY "TRATAMENTO " GET TRAT 

0 9.2 SAY "ENT ERE CO GET ENDE 

0 10- 2 SAY "BAIRRO " GET BAIR 
0 10.42 SAY "Cl BADE " GET CIDA 
0 11 2 SAY "ESTADO " GET E5TA 
0 11.25 SAY "CEP " GET CEP 
0 12.2 SAY "TELEFONES " GET TELF 
0 13.2 SAY "CPF " GET CPF 
0 14.2 SAY "ANIVERSARIO " GET AKIV 
0 15.2 SAY "DEPENBENTE 1 GET DEP1 
0 16.2 SAY "DEPENDENTS 2 " GET DEP2 
0 17.2 SAY "ANIVERSARIO BE?. 1 :" GET ANIV1 
0 17.42 SAY "ANIVERSARIO DEP. 2 GET AN! VS 
CLEAR GETS 
RETURN 

PROCEDURE ABANDONS. 

SAVE SCREEN TO SAIR 
DO WHILE .T. 

SET INTENSITY OFF 
SET COLOR TO W+ 

0 18.22 CLEAR TO 21.56 
0 18,22 TO 21.56 DOUBLE 
0 19.29 SAY " Saif do SiJtena " 

QW=SPACE (1! 

DO WHILE .NOT. QW « "SN" 

OW=SPACE (1) 

SET COLOR TO W 

0 20.28 SAY ” Ten certeza (5/H) 7" 
GET QW PICT "0'" 

READ 

END DO 
IF OW="S" 

RELEASE ALL 

USE 

CLEAR 

SET COLOR TO 
SET INTENSITY ON 
QUIT 

ELSE 

CLEAR 

SET INTENSITY ON 
RESTORE SCREEN FROM SAIR 
RETURN 

ENDIF 

END DO 



RETURN 

PROCEDURE MENU 
DO LOCA 
RETURI'I 

* PRO GRAMA. CONTROL E DE LOCADORA 

* PRCGRAMADOR: RICARDO BORGES SOMIDE 

* MODULO IMPRIMIR TOBGS FILMED { lOC* t 06 .pr*) 

* 

USE LOCA 

INDEX ON NOME* CODIGO TO LOCA 
USE LOCA INDEX LOCA 
DO WHILE .T. 

0 2.2 CLEAR TO 13.77 
SET COLOR TO W+ 

? 2.2 SAY "FILME5” 

8 3.2 SAY "IMPRIMIR LI STAG EM" 

84,2 SAY "IMPRIMIR TOBOS FILMES" 

SET COLOR TO W 

0 3.11 SAY "L i fcue a IMPRESSORA e press lone [EM 
7ER3 Para i j&p r i ju i r ’* 

8 9.12 SAY " ou tecie CESC2 rara re tor 

nar." 

TEC LA = I NKE Y C 0 ) 

IF TECLA=13 
EXIT 

ENDIF 

IF TECLA=27 
RETURN 

ENDIF 

END DC 

SET COLOR TO W 
? 11.33 SAY "iJftPT iluindo ! 1 5 " 

SET CONSOLE OFF 

SET PRINT OFF 

SET DATE BRITISH 

SET DEVICE TO PRINTER 

LIN=6I 

PAG = ® 

DO WHILE .NOT. EOF i) 

IF LIN) S3 
EJECT 
PAG =PAG * 1 
SET PRINT ON 

**** ATIVA CARACTERE 10 CPI (NEGRITO+ENFA 
7IZADG' **** 

? CHRC27) +" ! " +CHR i 24) 

SET FRINT OFF 

0 1.13 SAY "RVIDEO vl.® Control e de Locad 
ora - RICO SOFT PC 1991" 

8 2,12 SAY " 



SET PRINT ON 

«**i ATIVA CARACTEP.E 17 CPI (NEGRI TO +COMP 
El MI DO) Htt 

? CHE! 27) + " ! " +CHRC 22) 

SET PRINT OFF 

0 4.® SAY "PAG "+STR<PAG . 5) 

0 4,25 SAY " DATA " *DTOC (DATE ■ ) ) 

05.0 SAY "LI57AGEM DE FILMES" 

0 7.0 SAY "CODIGO:" 

0 7.11 SAY "FILME " 

0 7,57 SAY "GENEEO: " 

0 7,73 SAY "TEMP-O:" 

0 7.91 SAY "9UALI FI CACAO " 

0 7.187 SAY "SISTEMA " 

0 7,113 SAY "ANO " 

0 7,128 SAY "VEL." 

LIN=9 

ENDIF 

SET PRINT ON 



Yes nos temos 




PAmlTIMBRABOf 



Programa genuinamente nacional. 
Imprime seu logotipo quando voce usa 
a impressoradomicrocomputador. 



Gonheqa, tambem, ETIQUETA TIMBRAOA 
e CHEQUE TIMBRADO. 




CORTf'. CUSTO 



PERSONALIZE, SEES 
/j-RELATOMOS;'- 

( 021 ) 263-4386 

ESTRATE5GIA SC 
AV. PRES. VARGAS 962/414 
RIO 






★ ★★★★★ ★★★★★★ 

SOFTWARE DE 
DOMINIO PUBLICO 
IBM PC e compativeis 

Processadores de Textos, 
Planilhas Eletronicas, Bancos 
de Dados, Desktop Publis- 
hing, Linguagens, Jogos, Va- 
cinas c/Virus, Gr£ficos, Fi- 
nanceiros. Desenhos para 
Autocad, Imagens e Anima 
gOes para Animator. Todos os 
programas acompanham 
orientagao para instalagSo e 
operagSo. Convertemos seu 
arquivo grafico de/para .GIF, 
PCX, PIC, etc. 

InformagOes: ART & TEXT — 
Servigos e Slstemas — Rua 
JoSo Vidal, 77 — Ponta Negra 
— 59085 - Natal — RN — Fo- 
ne: (084)219-2228. 

★ ★★★★★ ★★★★★★ 




DESPACHAMOS PARA 
TODOO BRASIL 



Tudoem Informatics 

• Autorizado DDX 

• Pc/Xt e At 386 

• Softwares p/MSX 

• Monitores 

• Impressoras 



Av. Contorno, 4182/3 
Tel.: (031) 227-7646 



Calx* Postal 3146 
Belo Horizonte — MQ 



Shareware e 
Dominio Publico 



Jogos, desktop, utilitcirios, etc... 
Biblioteca para dBase e Clip- 
per ( + de 50 mega de rotinas 
e programas). 

- Atendimento R&pido... 

- Ultimas versoes... 

- Solicite Cat&logo Gratis... 



ARTISOFT 

Fone: (011) 858-2183 
Caixa Postal: 16303 
CEP: 02599 
Sao Paulo - SP 



UIDEO GAMES 



NINTENDO 
MEGA DRIUE 
SUPER f AMI COM 
GAME GEAR 
MASTER SYSTEM 
GAME BOY 

ACESS0RI0S 



AS ULTIMAS N0UIDADES 
E OS MAIS RECENT ES 
LANfAMENTOS. 



RECURSOS DIGITAIS 

R CONS BR0TER0 589 
C0NJUNT0 42 
METRO MARECHAL 
01154 S PAULO -SP 
E0NE (011) 825-5240 



D.A.C. 

INFORMATICA 



MICROS PC XT-AT 

• Kit p micros 

• Impressoras (todas) 

• Monitores PC/MSX/Apple 

• Estabilizadores/No Breaks 

• Gabinetes/Cabos p / impressoras 
•Formuterios/Disqueies 

• Mesas p / PC e Impressoras 



DRIVES PARAMSX 

• Micros MSX novos e seminovos 

• Kit 2.0 e 2.0 + Plus 

• Modem p / MSX/Interface 

• Mega Ram Disk/ Expanse de Slots 

GAMES ECARTUCHOS 
Superpromocao p/Drives 



S 1011) 62-6798 
871-0277 



PC GAMES 
CLUB 



“Nem s6 de trabalho 
vive o seu PC... 

De uma distragao para 
o seu Micro”. 

Temosomaioracervode 
jogos para PC XT/ AT. 

Slio mais de 500 titulos 
Solicite cateilogo gratis 
ou consulte as ultimas 
Micro Sistemas. 

Consulte tambbm a nossa 
biblioteca de Shareware e 
Domlnio Publico. 



Caixa Postal 1852 
CEP 20001 - Rio de Janeiro 
RJ 

Telefone (021 >580-6455 



S.O.S. MICRO 



AGORA EXISTE UM LUGAR ONDE 
VOCE ASSISTE SEU COMPUTADOR 
SER CONSERTADO. E MAIS: 
QUERF.NDO TRAGA VOCE MESMO 
AS PECAS NECESSARIAS PARA 
REPOS ICAO. TUDOISSO 
COMA NOSSA GARANTIA., 
ORQAMENTO 

SEM COMPROMISSO- 
ACERTE CONOSCO! 



LOCAPtinC 




RUA ACRE, 47 

- LOJA A 

233 7996 - 253 9064 



r 1300 PROGRAMAS A 
PARA PC/XT/AT... 

SOLICITE 
CATALOGO 
GRATIS 



SOFTWARE DE DOMINIO 
PUBLICO E SHAREWARE 



( KANOPUS ) 

o 

0 



AREAS: Banco de Dados, 
Com unicacao, Dos, Edit ores 
deTexto, Planilhas, Graficos, 
Medicina, Astronomia. Jogos 
Educacionais, Cad, Desktop 
Publish, Anti-virus, Clipper, 
Dbase, C, Pascal e outros. 



KANOPUS 



Cx. Postal: 8301-80011- CurHiba 
Fone: (041) 222-0277 



Pr 



CHEW 

WFORMfiTJCfl 



Especializado em 
Software de Dominio 
Publico (Aplicativos e 
Jogos) para IBM-PC e 
compativeis. 

Por apenas Cr$1.700, a 
copia 

Pega um Catalogo Gratis 



TEL: 

f0U)2&Miil7 



GRATIS! 

SOFTWARE DE 
DOMINIO PUBLICO 
-WIND OWS -UTILS E JOGOS 
•EONTES PARA LASER 
-PLANILHA IASEASYI 
•CLONE DO NORTON - CALMER 
•C01ECA0 PARA VENTURA . 
PAGEMAKER .WORDPERFECT. 
•PMC. TEXTO IGALAXYI 
"GRAFICOS -oancao. print- 
master PRINTSHOP 
° A N T 1 V IRUS.EOOCATI VOS.CO - 
MUNICACAO. JOGOS E OUTROS. 
♦APENAS CRS 1 300.00 P/COPIA 
SOFTEK —(021)273 1790 
RIO DE JANEIRO - RJ 



TechnoSoft 



• Implantagao de Sistemas 
•Editoragao Eletronica 




PC XT/AT 




TEL FAX:(01 1)87--; 1883 






TOY GAMES 



MSX1/MSX2/MSX2 + 

Jogos e aplicativos • Ultimas novidades • Perifericos DDX • Drives 3 
1 12 e 5 1 /4 • Megaram 256 / 512 / 768 • Modem • Expansor de Slots • 
Cartao 80 Colunas • Kit 2.0 e 2.0 + • Memory Mapper • Caixa de Som 
p/computadores (Langamento) 

PC XT / AT 

Jogos e aplicativos de Dominio Publico 

PERIFERICOS 

IMPRESSORAS • SEANNERS • PLACA PARA FAX/PC (Langamento) • 
DRIVES • 

AMIGA 500/ 1000 / 2000 

JOGOS APLICATIVOS • ULTIMAS NOVIDADES 

PERIFERICOS 

DRIVES EXTERNO • EXPANSAO DE MEMORIA 1 MEGA D.D.X (Langa- 
mento) • RF MODULADOR A — 520 • GENLOCK • DIGITALIZADOR DE 
IMAGEM ESOM 

ASSISTENCIA TECNICA — MSX — PC - AMIGA • ALINHAMENTO DE 
DRIVE • CONSERTO EM GERAL • TRANSFORMAQAO TV / RGB • 

SUPRIMENTOS 

DISQUETES 5 1/4 E 3 1/2 • FORMULARIO CONTiNUO • ETIQUETAS, 
FITAS E IMPRESSORAS • LIVROS E REVISTAS 

ABERTO DE 2* A SABADO 

TOY GAMES INFORMATICA LTDA. 

Rua Galvao Bueno, 714 Cj. 16 — Liberdade — S£o Paulo — SP 

Estagao Metro SSo Joaquim 

Caixa Postal: 7716 Cep: 01064 - Fone (01 1 ) 277-4878 

DESPACHAMOS PARA TODO O BRASIL 

Aceitamos cartSo de cr^dito (Bradesco, American Express) ou Paga 
mento facilitado 

Solicite nosso cataiogo gratis 



PLACA DDFAX 96 PARA PC 
XT/AT 

Transforma seu micro em uma maquina de fax com disca- 
gem automatica, cadastro de ate 999 clientes e programa- 
gao para envio. transmite e recebe com velocidade de 9600 
BPS. Recepgao automatica durante operag&o de outros 
programas. 

KIT DDX MSX 2.0 + 

Implementa no seu micro maior resolugao, maior velocida- 
de de manipulagSo de graficos, relogio real com bateria, 80 
colunas, 256Kb de MEMORY MAPPER e 19.268 cores. 

MEGA RAM DISK PARA MSX 

Expansao de memoria com sistema operacional residente, 
disponivel em 3 modelos diferentes: 256, 512 e 768 Kbytes. 
Funciona como se fosse urn drive tempor£rio para o seu 
MSX. 

DDX MODEM PARA MSX 

Transmite e recebe em 1 200/75, 300/300, 

1200/1200, BELL e CCITT. Monitoragao de linha, Discagem 
rediscagem e atendimento automatico. Programa para 
video textoembutido. 

KIT PARA DRIVE DDX 

Composto de gabinete metalico, fonte de alimentagao, in- 
terface DDX, cabo para dois drives, manual e sistema ope- 
racional DDX DOS. 

DATATEC 



Rua Domingos de Moraes, 770 - Loja 33-B 
V. Mariana - S. Paulo/SP Ao lado Estagto 
Ana Rosa Metro - FONE/FAX: (Oil) 571-7083 



ru 
' « 

QATKTIC 



♦ *** ATIVA CARAC7SRE 17 CPI (COMPRIMIDC) **** 

? CHE (27) + "‘ "+CHR(4) 

5ET PRINT OFF 
0 LIN, 8 SAY COD I GO 
0 LIN. 11 SAY NOME 
0 LIN. 57 SAY GENE 
0 LIN. 78 SAY TEH? 

0 LIN. 91 SAY DUAL 
0 LIN. 167 SAY SI ST 
0 LIN. 118 SAY AND 
0 LIN. 128 SAY VELD 
LIN=LIN+i 
SKIP 

ENBDO 

EJECT 

SET DEVICE TO SCREEN 

SET PRINT OFF 

SET CONSOLE ON 

USE 

RETURN 

it PROGRAMA : CONTROLS BE LOCADORA 
t PROGRAMADGR: RICARDO BORGES GOMIBE 
i MODULO :ELIMINAR TODOS REGI5TR05 ( l GCA tQ8. PTSO 
it 

SET INTENSITY ON 

04.2 CLEAR TO 13.77 
SET COLOR TO W+ 

0 4.2 SAY "ELIMINAR TODOS REGI5TRGS" 

SET COLOR TO W 
AA=SPACE ( 1) 

DO WHILE .NOT. AA $ "SN" 

AA= SPACE (15 
SET COLOR TO G + 

0 6.2 say "Conf ir»a elininacao (S/N) get aa 

PICT -Pi" 

READ 

ENDD0 
IF AA="N" 

RETURl'I 

END IF 

WIMF = SPACE ( 1 ) 

DO WHILE .NOT. WIMP $ ”SN” 

WIMP = SPACE ( 1) 

SET COLOR TO G+ 

07.2 SAY SPACE (48) 

0 7.2 SAY "Tem certeza fS/N) ■ " GET WIMP PICT 

,. 0I .. 

FiEAD 

ENDD0 

IF WIMF = ,, 5" 

USE L0CA 
ZAP 

SET COLOR TO W*4 

0 15,2 SAY "TODOS OS REGISTR05 ESTA0 ELIMINADG 

5 ! ! ! " 

SET COLOR TO W 

TIME=0 

DO WHILE TIME <1200 

TIME = TIME 4 1 

ENDD0 

USE 

RETURN 

ELSE 

USE 

RETURN 
END IF 

* PROGRAMA: CONTROLS DE LOCADORA 
4 PROGRAMADGR: RICARDO BORGES GOMIDE 
it MODULO : ELIMINAR UM REGI5TR0 ( l OCaiUfto . PTx) 
it 

SET INTENSITY ON 
USE LOCA 
IMP = ,, NA0" 

DO WHILE IMP="NAC" 

04.2 CLEAR TO 13.77 
SET COLOR TO W+ 

04.2 SAY "ELIMINAR UM REGISTRG" 

SET COLOR TO W 

TC0DI =SPACE >5) 

0 6.2 SAY "Entre C0DIG0 :" GET TCODI PICT "0 : ** 

READ 

IF TCODI =SPACE (6) 

USE 

RETURN 

END IF 

LOCATE FOR CQDI5Q=TC0DI 
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IF EGFO 

DO GOBI GO 
RETURN 

END IF 
IMP =" SIM" 

ENDDO 

IF IMP =" SIM” 

05,2 CLEAR TO 16,77 
DO TELA 
END IP 

AA= SPACE ( 1) 

DO WHILE .NOT. AA $ "SN" 

AA= SPACE ( 1) 

SET COLOR TG G + 

0 16,2 SAY "Confirm* eliminacao ( S/N) GET A 
A PICT ”0 ! " 

READ 

Eire DC 
IF AA= ,, S" 

DELETE 

PACK 

END IF 

WIMP =SP ACE (1) 

DO WHILE .NOT. WIMP $ "SN” 

WIMP = SPACE (1) 

SET COLOR TO G+ 

0 18.2 SAY SPACE (40) 

0 18,2 SAY "Gutra eliminacao (S/N) ■ " GET WIMP 
PICT " 0 : 

READ 

ENDDO 

IF WIMP="5" 

DO LOCAUM8 

ELSE 

USE 

RETURN 
END IF 

* PROGRAMS CONTROLS DE LOCADCRA 

* PRCGRAMADCR RICARDO BCBGE5 GOMIDE 
i MODULO HELP DO SI STEMA fhelP.pr*! 

* 



PARAMETERS Ml, M2. M3 
IF Ml = ’HELP" 

RETURN 
END IF 

SAVE SCREEN TO HELP 
DO WHILE .T. 

SET COLOR TO W 
CLEAR 

04.8 TG 21,71 DOUBLE 
SET COLOR TO U+ 

0 5,9 TG 28,79 DOUBLE 

0 4,13 SAY " RVIDEO vl.8 Control € de Locadora - Ric 
0 SOFT PC 1991 " 

0 21.22 SAY " COPVri*hl (c) RICARDO BORGES GOMIDE " 
SET COLOR TO W 

0 7,31 SAY ” HELP AO U5UARIO " 

0 9,12 SAY "0 RVIDEO vl.8 utiliza uma interface 
com o usuario" 

0 10,15 say M Q,ue o torna muito similes de ser utili 
zado." 

0 11.12 SAY “Voce node escolher a opcao usand 
o as setas para" 

0 12.12 SAY "mover a barra de opcoes e leclar [ENT 
ER] sob a mesma" 

0 13,12 SAY "ou pode escolher a opcao RETORNA Para 
vo l tar ao menu” 

0 14,15 SAY "anterior. " 

0 15,12 SAY "Case voce tenha escolhido uma opcao pc 
r en*ano. press ic-" 

0 16,15 SAY "ne CENTER; na primeira &a.rte da mesma 
para re to mar." 

SET COLOR TO B/W 

0 19.23 SAY " TECLE CE5C3 PARA 5AIR " 

SET COLOR, TO 
TT= INKEY : 9 ! 

IF TT=27 
EXIT 

END IF 
ENDDO 
CLEAR 

KEYBOARD C3Rf27) 

RESTORE SCREEN FROM HELF 



CONHEQA 0 MELHOR PACOTE 
ECONOMICO DATEMPORADA 



E isso mesmo. O mais econdmico pacote da temporada e uma assinatura anual da sua revista prefenda de mfor 
matica. 

Veja so se nao e uma vantagem e tanto: voce paga 9 e leva 12 edigoes. Uma pechincha de dar agua na boca 

Nao e so isso nao. Atente para o fato de que MICRO SISTEMAS e a primeira revista brasileira de microcomputado 
res. Sao dez anos de hderanga no mercado e muita historia para contar. 

A nossa maior tradigao continua sendo nosso carro chefe: nas paginas da MICRO SISTEMAS voce encontra senv 
pre uma analise do mercado de mformatica. Alem e darn, dos melhores programas e rotinas pubheados em revista. 

Nao fique ai parado. Faqa as contas e comprove. Depois e so preencher o cupon abaixo e entrar para o time dos 
usuarios bem informados. 



- 




Nome 




Enderepo: 


Cep: Cidade: 


UF 


Equipamento 


Profiss§o: 


Data nasc : 


Ass 


Data: 


Estou enviando o cheque n° 


nominal a ATI EDITORA SA. 


referente a uma assinatura anual (12 numeros) 


de MICRO SISTEMAS 




ATI 

Analise, Teleprocessamento e 
Informatica Editora S.A 

Rua Washington Luiz, 9 gr 403 
Rio de Janeiro RJ - Cep: 20.230 



APLICATI VO 

Facilite a organizacao de seus discos e programas 



CADPRO: 

Um sistema sob medida 




Micro: IBM PC/XT 
Memoria: 512 Kbytes 
Video: CGA / EGA 
Linguagem: dBase 111 + 
Requisitos: Impressora 



□ Daniel Jerozolimski 



Esta e a segunda parte do artigo publicado na edicao anterior. 



* + 




3 13,62 SAY 'U-utilitario' 


* ! -> CADPRO - Cadastro de Programas ! 


3 14,62 SAY 'G-grafico' 


* ! Daniel Jerozolimski 


1 

t 


3 15,62 SAY 'J-jogo' 


* 1 Fevereiro, 1991 


1 


3 16,62 SAY 'A-aplicativo' 


» ! MODULO ADICIONAR - ADICIO.PRG 1 


3 17,62 SAY- 'S-simulador ' 
3 18,62 SAY 'D-adventure ’ 


* + 




SET TALK OFF 




SET COLOR TO W+/R 


SET BELL OFF 




READ 


USE PROGS INDEX IND 




Mt ipo=UPPER(Ht ipo) 


SET COLOR TO N/W+ 




IF Mnome=SPACE(23) 


spaco=SPACE(80) 




CLOSE DATABASES 


3 0,0 SAY Spaco 




3 2,2 CLEAR TO 19,78 


SET COLOR TO W+/R 




RETURN 


3 1,2 CLEAR TO 10,78 




ENDIF 


3 1,2 TO 1,78 DOUBLE 




t ipo.val ido=CSOGAUJ] 


3 3,28 SAY Adicionar Novos Programs 


IF .NOT, (Ht ipo S tiPO-valido) 


00 WHILE .T. 




3 21,5 SAY 'Tipo invalido !!! ’ 


1 5,2 SAY 'Numero total de registros: +STR(R£CCOUNT(), 


? CHR (7 ) 
WAIT ” 


7) 




3 7,29 SAY Nome do Programa 




3 21,5 SAY ’ 


3 6,22 TO 9,51 DOUBLE 




LOOP 


Hnome=SPACE(23) 
Mversao= ’ 




ENDIF 




SEEK Mnome 


Mtipo=’ 




IF .NOT. EOFO 

3 21,5 SAY 'Esse programa ,ja esta cadastrado 


Mdiscos=’ ' 




Hbytes= ’ 




? CHR (7) 


Mnota=’ ’ 




BAIT ” 


Hdata=' / / 




3 21,5 SAY ' 


Mdata=CTOD(Mdata) 




LOOP 


Mdesc 1 =SPACE (35 > 




ENDIF 


Mdesc2=SPACE(35) 




Mdesc=Mdescl+Mdesc2 


3 8,26 GET Hnome 




APPEND BLANK 


3 10,2 TO 19,58 
3 11,3 SAY ’Nota ( 0-10 ) 




REPLACE Desc WITH Mdesc 


' GET Knot a 


REPLACE Nome WITH Mnome 


3 12,3 SAY 'Tipo 
3 13,3 SAY 'Versao 


’ GET Mtipo 


REPLACE Versao WITH Nversao 


’ GET Mversao 


REPLACE Discos WITH VAL(Mdiscos) 


3 14,3 SAY 'Data de aguisicao 


r GET Mdata 


REPLACE Butes WITH VAL(Hbytes) 


3 15,3 SAY 'Discos aue ocupa 


1 GET Hd i scos 


REPLACE Tipo WITH Mtipo 


3 16,3 SAY 'Bytes gue ocupa 


7 GET Mbytes 


REPLACE Nota WITH VAL(Mnota) 


3 17,3 SAY 'Descricao 


’ GET Mdesci 


REPLACE Data WITH Mdata 


3 18,23 GET Mdesc2 




ENDDO 


SET COLOR TO B/BG 
3 10,59 CLEAR TO 19,77 
3 10,59 TO 19,77 DOUBLE 
3 11,60 SAY 'Tipos disponiveis' 
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# + + 


* 1 -) CAOPRO - Cadastro de Programas 1 


TER' 


* 1 Daniel Jerozol i msk i 1 


READ. 


* ! Fevereiro, 1991 1 


3 21,3 SAY ' 


* ! MODULO DE IMPRESSAO - IMPRIMIR.PRG 1 


* + + 


3 4,3 CLEAR TO 19,78 


DO WHILE .T. 


3 6,3 SAY 'Entre* com o cabecalho: 7 


SET COLOR TO N/W+ 


3 7,3 SAY ')) 0 prograraa se encarrega de central izar << 7 


3 0,0 SAY SPACE(80) 


cabi=CCADASTRO DE 


SET COLOR TO U+/R 


] 


3 l T i CLEAR TO 10,78 


cab2=EPR0GRAHAS 


9 i,i TO 1,78 DOUBLE 
3 3,27 SAY ’IHPRIMIR CADASTRO' 


] 


cab3=SPACE(60) 


USE PROGS INDEX IND 


cab4=SPACE<60) 


tipo-.esc=' 


cab5=SPACE(60) 


3 9,3 SAY 'Tipo de deseja imprinur : 1 GET Tipo.esc 


cab6=SP ACE ( 60 ) 


3 21,3 SAY 7 Se nao deseja ver algum tipo ero especial, r 


cab7=SPACE(60) 


3 22,3 SAY 'pressione Enter 1 


3 9,8 GET CAB1 


SET COLOR TO B/BG 


3 10,8 GET Cab2 


3 7,49 CLEAR TO 15,73 
3 8,50 SAY 'Tlpos Disponiveis 7 
3 9,52 SAY 'U-utilitario' 


3 11,8 GET Cad3 


3 12,8 GET Cab4 


3 13,8 GET Cab5 


3 10,52 SAY 7 G-graf ico 7 
3 11,52 SAY 7 J-jogo 7 


3 14,8 GET Cab 6 


3 15,8 GET Cab7 


3 12,52 SAY 7 A-aplicativo 7 
3 13,52 SAY 'S-simulador 7 
3 14,52 SAY 7 D-adventure 7 


READ 


cabl=TRIM(cabi) 


cab2=TRIM(cab2) 


3 7,49 TO 15,73 DOUBLE 


cab3=TRIH(cab3) 


SET COLOR TO U+/R 


cab4=TRIN(cab4) 


READ 


cab5=TRIM(cab5) 


t ipo_esc=UPPER(t ipo.esc) 


cab6=TRIM(cab6) 


t ipo-val ido=C UGJASD] 


cab7=TRIM(cab7) 


3 21,3 CLEAR TO 22,78 


3 4,3 CLEAR TO 19,78 


IF .WOT. (tipo.esc % t ipo-val ido) 
3 21.3 SAY 'Tipo invalido !'» 7 


8 6,3 SAY 'Ligue a irapressora, posicione o papel corretane 


nte e acione a chave de 1 inha 7 


? CHR (7) 


WAIT 77 


WAIT 77 


pagina.niiRFi 


3 21,2 SAY 7 


GO TOP 


LOOP 


3 4,3 CLEAR TO 19.78 


ENDIF 


SET COLOR TO W*/R 


EXIT 


3 21,3 SAY 'Impr inindo... 7 


ENDDO 


SET COLOR TO W+/R 


3 4,3 CLEAR TO 19,78 


SET PRINTER ON 


data_esc= 7 / / 7 


SET CONSOLE OFF 


data_esc=CTOD(data_esc) 


? CHR (15) 


3 6,3 SAY 7 Entre com a data a part i r da qual 7 
3 7,3 SAY 'voce quer que seja realizada a impressao: 7 GET 


space_3=SPACE(100) 

? space_3+'Data: 7 +DTOC(DATEO) 


Data.esc 


? space_3+ 'Pag ina numero: 7 +STR(pagina_num,5) 


8 21,3 SAY 7 Se nao quiser especificar a data, pressione EN 


num_cab=l 



CLASSIC SOFT Tel. (Oil) 875-4644 

MSX - AMIGA - PC XT/ AT 

RUA JOAO CORDEIRO, 489 — Freguesia do 0 — Sao Paulo — Capital — Cep 02960 



ADQUIRA SEUS PROGRAMAS PELO REEMBOLSO POSTAL (SEDEX A COBRAR) 
Voc6 fa z o pedido por telefone ou por carta e s6 pagar£ ao recebd-lo no correio. 



JOGOS E 


PERIFERICOS 


MmGA e PC 


APLICATIVOS P/MSX 


P/MSX DDX 


1, 2 PLUS, MEGARAM E MEMORY MAPPER 

• OS MELHORES E SEMPRE OS ULTIMOS 
LANCAMENTOS 

• TEMOS MAISDE 2.000 titulos 

• PROMOQAO - 10 jogos 2 gratis 
100 jOQOs = 25ar£tis 

• SOLICITE CATALOGO GRATIS 


• Kit p/montagem de Drive 

• DRIVE 5 1 /4- 360 e 720 Kb. 
DRIVE 3 1/2 720 Kb. 

MEGARAM GAME 

• MEGARAM DISK 256 / 512 / 768 

• INTERFACE 

• MODEM PI MSX 


TEMOS JOGOS E 
APLICATIVOS 
PROMOCAO AMIGA/PC 

Cada 10 jogos ou aplicativos 1 GRATIS 
ATENDEMOS TODO BRASIL 
Solicite CATALOGO GRATIS 



FACA SEU PEDIDO E SO PAGUE AO RECEBE-LO NO CORREIO DE SUACIDADE (SEDEX A COBRAR) 

ATENDE MOS TODO O BRASIL 



DO WHILE Nijffl.cab',8 

HSGNUM= 'CAB ’+STR(nua_cab4> 
cen t ro_cab= ( 130-LEN ( SHSGNUM ) ) /2 
? SPACE(centro_cab)+8«SGNUH 
nuffl_cab=nua_cab+i 
ENDDO 

9 

DO CASE 

CASE F i pc " c r=’ ' 

? 'Tipos: A-APLICATIVQ J-JOGO 

-GRAF I CO S-SIHULADOR D-ADMENTURE ’ 

CASE Tipo.esc= ’A ’ 

? CHR (14)+ ' 

20 ) 

CASE Tipo.esc='j’ 

? CHR < 14 )+ ' 

CASE Tipo_esc=’U ’ 

? CHR ( 14 )+ ’ 

20 ) 

CASE TiPO_esc='G' 

? CHR ( i 4 >+ ’ 

) 

CASE Tipo_esc=’S' 

? CHR(I4)+' 

20 ) 

CASE TiPO_esc='D’ 

? CHR ( 14 )+ ' 

20 ) 

ENDCASE 

IF Tipo.escO' ' 

? ’ 



U-UTILITARIO G 

APLICATiyOS '+CHRC 

JOGOS '+CHR(20) 
UTILITARIOS '+CHR( 

GRAFICOS '+CHR(20 

SIMULADORES ’+CHR( 

ADVENTURES '+CHR ( 



ELSE 

9 

ENDIF 



IF Tipo_esc=’ ' 

?? 'None 

it r 

?? 7 Aquisicao Descricao' 



ELSE 

?? 'Nome 

it i 



7 Versao ', 7 
7 Uersao 7 



TIpo \ 7 Nota ', 7 



VNota V 



?? 7 Aquisicao Descricao' 

ENDIF 

? 

reg_num=i 

DO WHILE .NOT. EOF!) 

IF (t ipo_esc= * ' .OR. t lpo.esc=TIPO ) .AND. ( DT0C(DATA 
)>DTOC(data_esc) .OR. DTOC(Data_esc)=' - - ’) 

IF TiPO-escO ' ' 
tipoJmpr= 7 
ELSE 

t ipo_if»pr=TIPO 
ENDIF 
00 CASE 

CASE DISCOS=0 .AND. BYTES* >0 

?? NOME*' '+UERSA0+' F +tiPoJ»P r+ 7 7 +STR(N0 

TA,2)+ 7 7 

?? STR(BYTES,7)+' butes '-►DTOC (DATA )-► 7 '+DESC 
CASE DISCOS* >0 .AND. BYTES=0 

?? NOME* 7 '+UERSA0+ 7 F +t ipo-impr* 7 7 *STR(N0 

TA,2)+ 7 '+STR(DISC0S,2) 

?? 7 Discos '+DT0C(DATA)+ 7 >0ESC 
CASE DISC0S=0 .AND. BYTES=0 

?? NOME* 7 '+UERSA0+ 7 7 +t ipa_impr+ 7 F +STR<N0 

TA,2)+ 7 7 

?? 7 7 4DT0C(DATA)+ 7 '+DESC 

ENDCASE 

7 

reg_nure=reg-num+i 
IF R0g_rnjiii»-40 
reg-nui»=i 
? CHR (12) 

pag i na_nui»=pag i na-num+1 
? space_3+ 7 Pag ina numero: > -»-STR(paq ina.nura.5) 



IF Tipo_esc= 7 



?? 'Nome 7 , 'Uersao', 7 Tipa 7 , 

i i i iii 

Not a , r 

?? 7 Aquisicao Oescricao 

E 1 SE 

^ ?? 'Nome 7 , \lersao \ 7 

7 Nota 7 , 7 V 7 

?? 7 Aquisicao Oescricao 7 

ENDIF 
? 

ENDIF 

ENDIF 

SKIP 

ENDDO 

SET CONSOLE ON 
SET PRINTER OFF 
3 21,3 SAY 7 

3 6,3 SAY 7 Pressione qualquer tecia para retornar ao menu 
WAIT 77 
DO TELA 
RETURN 



# 4 + 

* I -> CADPRO - Cadastre de Programas « 

* ! Daniel Jerozol irask i ! 

* ! Fevereiro, 1991 ! 

* I MODULO EDICAO - EDITAR.PR6 

* + + 



SET TALK OFF 
SET BELL OFF 
USE PROGS INDEX IND 
SET COLOR TO N/W+ 
spaco=SPACE(80) 

3 0,0 SAY Spaco 
00 WHILE .T. 

SET COLOR TO W/R 
3 2,2 CLEAR to 19,77 
3 2,10 CLEAR TO 10,50 
3 1,10 TO 1, 50 DOUBLE 
3 3,30 SAY "Editar Programs 7 
opcao=SPACE(23) 

3 8,7 SAY 7 Entre com o name do programa que voce deseja 
editar : 7 
3 11,26 GET Opcao 
READ 

IF 0pcao=SPACE(23) 

CLOSE DATABASES 
3 1,1 CLEAR TO 19,78 
RETURN 
ENDIF 

SEEK Opcao 
IF EOF ( ) 

3 21,5 SAY 'Programs 7 +TRIH(opcao)+ 7 nao encontrado 7 
WAIT 77 
3 21,5 SAY 7 

t 



LOOP 

ENDIF 

DO WHILE .T. 

3 4,1 CLEAR TO 19,77 



3 5,2 SAY 'Registro numero: +STR(RECN0( ) ,5) 
3 7,29 SAY 'Nome do Programs 7 
3 6.22 TO 9,51 DOUBLE 
3 10,2 TO 19,58 
Mt ipo=t ipo 

Hdesc i=SUBSTR (desc ,1,35) 

Mdesc2=SUBSTR ( desc , 36 ) 

3 8,26 GET Nome 

7 Nota ( Q-iO ) : 7 GET Nota 

7 Tipo : 7 GET Mtipo 

'Oersao : 7 GET Uersao 

’Data de aquisicao: 7 GET Data 

’Discos que ocupa • 7 GET Discos 

'Bytes que ocupa : 7 GET Bytes 

'Oescricao : ' GET Moesci 



11.3 SAY 

12.3 SAY 

13.3 SAY 

14.3 SAY 

15.3 SAY 

16.3 SAY 

17.3 SAY 
3 18,23 GET Mdesc2 
SET COLOR TO B/BG 

3 10,59 CLEAR TO 19,77 
3 11,60 SAY 'Tjoos D’sponiveis' 
3 13,62 SAY 7 U-ut i I itar io 7 



50 MICRO SISTEMAS 



3 14,62 SAY 'G-graf ico 7 
3 15,62 SAY 'J-jogo 7 


msg3=[ ] 




3 16,62 SAY 'A-apl i cat i vc 7 


asg4=C ] 




3 17,62 SAY 'S-s i m»i] ador 
3 18,62 SAY 'O-adventure ' 


asg5=EProgrania desenvo '.v «do por:] 




iflsg6=[ Daniel Jerozol i msk i ] 




3 10,59 TO 19,77 DOUBLE 


1 inha=4 




SET COLOR TO W/R 


mens-numero=i 




READ 


00 WHILE Mens_niiwero<=6 




Ht ipo=UPPER(Ht ipo) 


roens.iBacr o= 'msg '+STR ( i»ens_n»in>er o , 1 ) 




t ipo-val ido=[SDGAUJ] 


IF Mens-nuwero<3 




IF .NOT. (Ht i po $ tlpo-valido) 


■en5-centro=(78-LEN(&«ens_niacro))/2 




3 21,5 SAY 'Tipo Invalldo !!! r 


ELSE 




? CHR(7) 


aens_centra=5 




WAIT ” 


SET COLOR TO W+/R 




3 21,5 SAY ' 


ENDIF 




LOOP 


caractere=i 




ENDIF 


00 WHILE Caractere<=LEN(8fflens_niacro) 




EXIT 


3 1 inha,fflens_centro SAY SUBSTR(&mens_macro,l,caracte 


ENDDO 


re) 




Hdesc=Ndescl+Hdesc2 


caractere=caractere+i 




REPLACE Desc WITH lidesc 


ENDDO 




REPLACE Tipo WITH Htipo 


■ens_nijnierQ=niens_nuniero+i 




ENDDO 


IF Hen5-nufflero<5 






1 inha=l inha-^2 
ELSE 

1 inha=l inha+1 
ENDIF 

ENDDO 




+ 


SET COLOR TO G/R 




# ! -> CADPRO - Cadastro de Proqra&as 

i 


3 17,0 
TEXT 




i 

* ! Daniel Jerozol inisk i 


Esse prograwa foi criado para facilitar 


a organ i 


i 

i 


zacao 




* \ Fevereiro de 1991 

i 

i 


da sua colecao de proqraraas 




ENDTEXT 




» : MODULO DE APRE3ENTACA0 - CADAST.PRG 

1 
» 


WAIT ” 




cadast = 'PROGS. DBF' 






IF .NOT. FILE(cadast) 




~ -f 


SET COLOR TO W*/R 

3 21,3 SAY 'ERR0 FATAL: Cadastro PROGS .DBF nao 




SET COLOR TO W+/R 


esta pre 


SET TALK OFF 


sente ' 




SET DATE ITALIAN 


WAIT " 




SET BELL OFF 


SET COLOR TO 




CLEAR 


QUIT 




SET COLOR TO W+/G 


ENDIF 




3 3,15 CLEAR TO 7,65 


arq_ind= 'IND.NDX 1 




3 3,15 TO 7,65 DOUBLE 


IF .NOT. FILE ( arq_ i nd ) 




itsgl=[CADASTRO] 


USE PROGS 




»sg2=CDE PR0GRAMAS3 


3 22,3 SAY 'Espere... indexando cadastro' 






MSX e SOFT SUL. 



HARDmRES m SOFTS 



Drives DDX 
Megaram disk (256 Kb, 

512 Kb e 768 Kb) 

Impressoras 
Monitores 
Expansor de slots 
Kit transformagSo 2.0 e 2.0+ 
instaiado em 24 horas 
Modem DDX 

ExpansSo de 512 Kb p/ Amiga 



Jogos e aplicativos, o maior 
acervo do Brasil, sempre 
com as ultimas novidades. 
PACOTAO JOGOS 
(100 jogos + 5 aplicativos 
+ 12 discos) 

MINI PACOTAO 
(50 jogos + 5 discos) 



SOFTS PC e AMIGA 



Kit DDF AX 96 p I PC 
Video Games — Nintendo 
eSega 



Dominio publico 
Langamentos sensacionais 
p/ Amiga e PC 



Tod os os equipamentos 
com selo MSX, tem 
gar anti a de 12 meses. 



SOFT SUL PR 



Av. 7 de Setembro, 3146 ■ Loja 20 
Tel. (041) 232-0399 e 232-0453 

CEP 80230 

CURITIBA - PARANA 

Ao solicitar catalogo e spec if ique sau micro 










